Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
uses crt; var i,s: integer; begin i: =2; s: =1; while i< =10 do begin s: =s*i; i: =i+2; end; write(s); end.
(1) цирк (2) пирк (3) пирзприз (1) волк (2) солк(3) солн слон (1) стук (2) (м) мтук(3) (ь) мтуьмуть (1) крот (2) (м) мрот(3) (г) мрогморг
vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
const
a: array[1..6]of longint=(7,4,10,6,5,3);
var
i: longint;
begin
for i: =1 to 6 do write(9.8*a[i]*1200,' ');
writeln;
end.
Популярные вопросы