1) ввести квадраты натуральных чисел от 1 до заданного,вводимого с клавиатуры(считаем, что введённое число больше 1)
2) вести квадратов натуральных чисел от заданного вводимого с клавиатуры до 35( считаем, что введённое число меньше 35)
Паскаль очень нужно
RatmirOspanov123
3
18.04.2020 17:53
1
Другие вопросы по теме Информатика
looooooooollll
07.04.2020 17:33
Макушка007
07.04.2020 17:32
Angelikakat
17.06.2020 08:04
кексик7771
17.06.2020 19:55
Ксюшка221
17.06.2020 07:56
Клер11330
17.06.2020 18:00
брат2006кирилл
18.03.2020 16:56
la23s
18.03.2020 16:59
shkiper15555
18.03.2020 17:07
Популярные вопросы
- Сочинение-рассуждение на тему почему нужно заниматься спортом?...
3 - 1.ива относится к растениям 1.ива относится к растениям а)двудомным...
2 - Электроотрицательность каких атомов выше - азота, кислорода или углерода?...
2 - Ударение падает на последний слог: 1)хвоя 2)свекла 3)танцовщица...
3 - Арифметическая прогрессия(аn) задана формулой an=10-4n а)составьте...
1 - Разобрать слово пять как часть речи...
2 - Фонетический разбор слова держать за ранее...
1 - Окружающий мир ! почему князь дмитрий донской отправился за благословением...
3 - Ең ауыр салмақты жануар қайсы. перевод...
2 - 1выберите нужный глагол . it was quiet and he sounds . 1)can hear....
1
1)var a,s:integer;
begin
a:=1;
s:=1;
while sqr(a)<=1 do
begin
s:=s+sqr(a);
a:=a+1;
end;
writeln(s);
end.
2)var a,s:integer;
begin
a:=1;
s:=0;
while sqr(a)<=81 do
begin
s:=s+sqr(a);
a:=a+1;
end;
writeln(s);
end.