Предмет: Информатика,
автор: t4r4kanov
Решите задачу Pascal:
Цикл с предусловием Дана числовая последовательность : 8.2, 7.9, 7.6, … Найти сумму всех положительных чисел.
Ответы
Автор ответа:
0
program ll1;
var a, sum: real;
begin
a:=8,9;
sum:=0;
while a>0 do begin
sum:=sum+a;
a:=a-0,3;
end;
writeln(sum);
end.
Похожие вопросы
Предмет: Математика,
автор: lizabilova78
Предмет: Математика,
автор: saruhananvaleria44
Предмет: Русский язык,
автор: otnagitopelmen
Предмет: Математика,
автор: Dasha20172018
Предмет: Химия,
автор: Pineappleeeee