Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program n1; uses crt; var i,p: integer; beginclrscr; p: =1; for i: =1 to 10 do p: =p*i; writeln(p); readlnend.
программа на языке паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
const
a: array[1..6]of longint=(7,4,10,6,5,3);
var
i: longint;
for i: =1 to 6 do write(9.8*a[i]*1200,' ');
writeln;
Популярные вопросы