Программирование циклических алгоритмов1. От программы, записанной на алгоритмическом языке,перейдите к записи программы на языке Паскаль. Опре-делите, что будет выведено в результате работы програм-мы, если были введены следующие числа: 1, 5, -10, 3,-8, 6, 4, 0.Паскаль:Алгоритмическийязык:еедел s, xLac s integenbg.0i- - -3:20. ...Seplakt.......Е:=0;
Программирование циклических алгоритмов1. От программы, записанной на алгоритмическом языке,перейдите к записи программы на языке Паскаль. Опре-делите, что будет выведено в результате работы програм-мы, если были введены следующие числа: 1, 5, -10, 3,-8, 6, 4, 0.Паскаль:Алгоритмическийязык:еедел s, xLac s integenbg.0i- - -3:20. ...Seplakt.......Е:=0;
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program cyclic_algorithm;
var
s, x: integer;
begin
s := 0;
readln(x);
while x <> 0 do
readln(x);begin
if x > 0 then
s := s + x
else
s := s - x;
end;
writeln('Result: ', s);
end.
Результат работы программы:
1, 5, -10, 3, -8, 6, 4, 0
При вводе этих чисел результатом работы программы будет:
1 + 5 + 10 + 3 + 8 + 6 + 4 = 37 (поскольку все отрицательные числа были взяты по модулю)