Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
б)имя существительное
var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
var
i,n,a: integer;
begin
readln(n);
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
end.
var a: array [1..16] of integer;
i,s,c,d: integer;
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
writeln(s);
Популярные вопросы