Найти сумму квадратов всех целых чисел от a до 50 (a вводится с клавиатуры);
trofimovakarina1
2
10.08.2019 21:00
11
Другие вопросы по теме Информатика
Hsjsngzhsbdndhd
03.12.2020 13:02
меси5
03.12.2020 13:01
ывывывывыв
18.05.2020 19:43
volodyanadya94p08rdb
18.05.2020 19:42
alensozonova
23.08.2019 12:00
пматмг
28.05.2019 20:40
vika200458
28.05.2019 20:40
Популярные вопросы
- Сұрақтарға жауап жазыңыз. Бұл кім? Қай кейіпкер? 1. Келесі сабақта қайсың...
2 - Б) На якій відстані від точки Р(1; 2) проходить пряма 6х + 8y — 15 = 0?...
3 - Оформите пассивный счет 66 «Расчеты по кратко кредитам и займам», рассчитайте...
3 - Оформите пассивный счет 60 «Расчеты с поставщиками и подрядчиками», рассчитайте...
3 - Ненаголошений [е] в корені слова....
1 - Спрощення приголосного в буквосполученні -здн-....
2 - Б) Складіть рівняння кола з радіусом 10, центр якого розміщується на осі абсцис,...
1 - Решите задачу: Какова концентрация раствора, если в 200 г. воды растворили...
2 - Укажите последовательность обмена веществ и энергии в организме: А- образуются...
2 - Оформите пассивный счет 83 «Добавочный капитал», рассчитайте обороты и сальдо...
1
var a,b:integer
begin
a:=0;
b:=0;
readln (a);
if a<51 do
b:=a*a+b
a:=a+1
end;
writeln (b);
end.