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

ЛЮДИ ДОБРЫЕ ПОМОГИТЕ!
25баллов

Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.

Входные данные
Задано единственное целое число N

Выходные данные
Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.

Примеры
входные данные
15
выходные данные
1
4
9

  1. Ответ
    Ответ дан petyaGavrikov
    var n,k:integer;
    begin
    write('n='); readln(n);
    k:=1;
    while k*k<=n do
     begin
     writeln(k*k);
     k:=k+1;
     end;
    end.
Самые новые вопросы