Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
4)
for i: =1 to n do if (i mod 2=0) then writeln(i);
5)
i,n,k: integer;
k: =0;
for i: =1 to n do if (i mod 15=0) then k: =k+1;
writeln(k);
разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:
1) 6224
2) 64472
0.27 - 0.09 = 0.18
или
27/100 - 9/100 = 18/100
попробуйте так (turbo pascal):
program 1;
var s: string;
c: integer;
write('vvedite nazvaniye zhivotnogo');
read(s);
writeln('vvedite kolichestvo syedennyh gribov');
readln(c);
writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');
Популярные вопросы