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

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

  1. Ответ
    Ответ дан petyaGavrikov
    var n,m:integer;
    begin
    write('n = ');
    readln(n);
    m:=1;
    while m*m<=n do m:=m+1;
    writeln('m = ',m*m);
    end.

    Пример:
    n = 70
    m = 81