М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
daravill1
daravill1
07.10.2022 08:06 •  Информатика

Вирішити з циклом WHILE Знайти всі числа менші N, які є квадратами натуральних чисел.
Формат вхідних даних
У стандартному вхідному потоці дано ціле додатне N (N <= 1000000).

Формат вихідних даних
У стандартний вихідний потік вивести у порядку зростання відібрані числа.

Приклад вхідних даних

30
Приклад вихідних даних

1 4 9 16 25

👇
Ответ:
Meowcots
Meowcots
07.10.2022

#include ‹iostream›

using namespace std;

int main()

{

int N, i(1);

cin»N;

while(i*i<N)

{

cout«i*i«" ";

i++;

}

}

4,8(82 оценок)
Открыть все ответы
Ответ:
ksenaf
ksenaf
07.10.2022
1. Есть очень много вирусов они могут очень быть опасными для человека или того же животного.
Известные вирусы: Коронавирус, орви, пневмония или есть много видов грип они все очень опасные и чтобы защитить свой организм нужно жить правильно короче здарова нужно жить.

2. Вреданостные программы создают для того чтобы взломать компьютер, телефон или ноутбук. Создают это плохие хакеры. Они это делают для того чтобы украсть твои данные.

3.то что он начинает зависать плохо работать. Или вообще отключатся и потом скора этот компьютер будет не починить и он сломается и так этот вирус начнёт заряжать другие компьютеры. Чтобы это остановить нужно установить анти-вирус он ваш компьютер и устранит вирус.
4,4(51 оценок)
Ответ:
nosanchuk14
nosanchuk14
07.10.2022
1.                                                            

program raf105;

var  

 i,n,a: integer;

begin

 write('Введите число: ');

 readln(a);

 write('Введите количество повторений: ');

 readln(n);

 for i:=1 to n do

   writeln(a);

end.

2.                                                            

program raf105;

var  

 sum,i: integer;

begin

 for i:=10 to 99 do

   if i mod 2 = 0

     then sum:= sum+i;

 writeln('Сумма всех чётных двузначных чисел: ',sum);

end.

3.                                                            

program raf105;

var  

 x,y: real;

begin

x:= -2;

 while x <= 2 do

 begin

   y:= 2*x+3;

   writeln(x:4:1,' ',y:4:1);

   x:= x+0.2

 end;

end.

                                                              PascalABC 3.4.2
4,4(36 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ