дано число n. из чисел 1, 4, 9, 16, 25 ... , напечатать те, которые не превышают n. Срочно!
5-9 класс
|
var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
Другие вопросы из категории
Помогите пожалуйста, очень срочно!!!
Читайте также
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
n.
а) Напечатать те натуральные числа, квадрат которых не превышает n.
3) Дано натуральное число. Определить:
а) количество цифр 3 в нем;
г) сумму его цифр, больших пяти;
тока дана строка символов, длина которой не превышает 255.
A) напечатать те натуральный числа , квадрат которых не превышает n
B) Найти первое натуральному число , квадрат которого больше n
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.