profile
Опубликовано 5 лет назад по предмету Информатика от olechkahnykina

среди чисел 1, 4, 9, 16, 25 ... найти первое число большее n.

  1. Ответ
    Ответ дан magica
    var
    n, p, i: integer;
    begin
    readln(n);
    i:=1;
    p:=3;
    while true do
     if i<=n then
     begin
     i:=i+p;
     p:=p+2;
     end
     else
     begin
     write(i);
     exit;
     end;
    end.
Самые новые вопросы