Войти Регистрация Спроси ai-bota

1) ввести квадраты натуральных чисел от 1 до заданного,вводимого с клавиатуры(считаем, что введённое число больше 1)
2) вести квадратов натуральных чисел от заданного вводимого с клавиатуры до 35( считаем, что введённое число меньше 35)
Паскаль очень нужно

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Nastyamil681

25.02.2021 01:26

*дан массив а целых чисел, состоящий из 20 элементов. заполнить с клавиатуры. 1) создать новый массив в, каждый элемент которого равен корню квадратному элемента массива...

maksy76750

04.03.2021 07:51

Составьте программу которая определяет большая и маленькая буква алфавита введена с клавиатуры,...

viktoriaprm

31.05.2023 23:16

Для чего необходимо делать ссылки на информацию получиную,из сети в интернет?...

dianababitskay

01.02.2023 07:52

Який текст виводиться у вікно повідомлення? var A: Integer;beginА.= 5: А= 25 - A*2:ShowMessage(IntToStr(А))...

Покрасьон

19.04.2022 10:15

Яка поезія Франка вважається поетичним кредо поета. Що означає ця назва?...

13alla68

28.02.2023 20:57

8. Укажіть ксерофіти: А) полин; Б) латаття; В) горох; Г) рогоз; Д) алое; Е) береза; Є) кактус.До ть будь ласка)...

Тлопап

28.02.2022 17:08

Чім займались учасники духовно- рицарских орденів...

thgWedMwe

28.02.2022 17:08

ДАМ +15 ОЧКОВ Составьте схему предложения :Человеку нужно,наверное,узнать все прелести,прежде чем перейти к такому пониманию счастья...

Джейн2005

04.11.2022 05:15

Климка , який захворів під час подорожі, доглядала... по скажите...

ch32

25.03.2021 08:12

Относительная плотность органического соединения по водороду равна 43. При сжигании 34,4 г этого вещества образуется 44,8 л углекислого газа и 36 г воды. Выведите молекулярную...

Ответ:

Griezman7

13.10.2020 11:30

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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку