Вычислите сумму квадратов вводимых чисел, числа вводятся пока не будет нажат 0 работа на паскале
123GEV
1
27.08.2019 01:00
0
Другие вопросы по теме Информатика
студент168
13.09.2019 17:00
Tyshkanchik228
03.06.2019 07:50
НастюшаКороткая
30.07.2019 23:40
Sobennikovoleg
30.07.2019 23:40
Alenadobro97
20.06.2019 19:30
anakukla2
06.09.2021 15:48
ПрофессиАНАЛ
06.09.2021 15:49
IrinaArinaRina
06.09.2021 15:49
Популярные вопросы
- в выделеном предложении найдите слово в котором не совпадает количество букв и...
1 - Он слышал песню Синички и умилялся. Определи, какой тип речи представлен в предложении?...
1 - Струми в залізній та іншій дротині однакових розмірів однакові, а напруга на залізній...
3 - горах первый день выпало 3/12 части А за 2 дня 7/12 части месячная норма осадков...
3 - , Вставь необходимый предлог de, à, près de, dans Michel va … l’institut … deux...
2 - Задание: Написать цикл от 0 до 100, пока i меньше или равно сотне с выводом в консоль...
3 - 3. Вычислите. 3бd) abs (-12-5.56)e) 138/10f) str(int(25.14+13.47)...
3 - Залізний і константановий дротини однакових розмірів підключені до однакових напруг.В...
1 - 3 тоқсан 3 сынып Т.Ж.Б Қазақ тіл ...
3 - Выпишите из текста выделенные СПП (А и Б) проставьте недостающие знаки препинания,...
1
A,S:real;
Begin
Repeat
Read(A);
S:=S+A*A;
Until A = 0;
WriteLn('S = ',S);
End.
var a, k: Integer;
begin
while a <> 0 do
begin
readln(a);
if a <> 0 then inc(k, sqr(a));
end;
writeln(k);
end;