Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx;
var i, n, s : integer;
begin
write ('введите n =' );
readln (n);
s: =0;
for i: =1 to n do
s: = s+ sqr(i+1);
writeln ('сумма =' , s);
readln
end.
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право
компьютер телфон и иже с ними
Популярные вопросы