Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.
программа на паскале:
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.
совершенное число это число равное сумме своих делителей отличных от самого числа
var i, s,j : integer;
begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.
50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт
10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт
Популярные вопросы