program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.
Ответ дал: Гость
если n это количество чисел, начинаем с 3
var
i,n,p: integer
begin
readln(n);
i: =3;
p: =1;
while i< =3*n do
begin
p: =p*i;
i: =i+3;
end;
writeln(p);
end.
если n это верхняя граница чисел
var
i,n,p: integer
begin
readln(n);
for i: =3 to n
if i mod 3 = 0 then
p: =p*i;
writeln(p);
end.
Ответ дал: Гость
по одному.
обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.
мир,енесей,россия вернулись обратно перед каналом
в канал заплыл восток.
мир,енесей,россия проплыли канал. восток уплыл
и тд
Ответ дал: Гость
var a: array [1..5] of integer; s,i: integer; begin for i : = 1 to 5 do begin writeln('a[',i,']='); read(a[i]); s: =s + a[i] end; writeln('s=',s); end.
Популярные вопросы