Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:
ура! у нас каникулы!
объяснение:
решаешь примеры и каждому ответу соответствует своя буква. вписываешь буквы в таблицу сверху.
в не указан шаг изменения x , допустим он равен 1
var
x,y: real;
begin
x: =1;
while x< =10 do
y: =1/x-5;
writeln(y: 8: 2);
x: =x+1;
end;
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.
Популярные вопросы