program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Ответ дал: Гость
Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.
Ответ дал: Гость
такой адресс получается
Ответ дал: Гость
1)
var
s,r: string;
i: integer;
begin
readln(s);
r: ='';
for i: =1 to length(s) do
if s[i]< > 'a' then r: =r+s[i];
writeln(r);
end.
2)
текст разделяем знаками препринания
var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;
begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.
Популярные вопросы