Решите задачу Pascal:Цикл с предусловием Дана числовая последовательность : 8.2, 7.9,

Решите задачку Pascal:
Цикл с предусловием Дана числовая последовательность : 8.2, 7.9, 7.6, Отыскать сумму всех положительных чисел.

Задать свой вопрос
1 ответ

program ll1;

var a, sum: real;

begin

a:=8,9;

sum:=0;

while agt;0 do begin

sum:=sum+a;

a:=a-0,3;

end;

writeln(sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт