Задача в паскаль

Даны 3 числа. Найти сумму чётных чисел, которые больше 50.

Question

Информатика

Празат

30 мая, 01:30

Задача в паскаль

Даны 3 числа. Найти сумму чётных чисел, которые больше 50.

+4

Ответы (1)

Знаете ответ?

Даруна · Answer 1

Program freeDig;

uses crt;

var a, b, c:Integer;

begin

a:=0;

for b:=1 to 3 do begin

Write ('Введите число номер ', b, ': ') ;

Readln (c) ;

if c mod 2 = 0 then

if c>50 then a:=a+c;

end;

Write ('Сумма четных чисел, больших 50, равна ', a) ;

readln

end.

Задача в паскальДаны 3 числа. Найти сумму чётных чисел, которые больше 50.

Задача в паскаль

Даны 3 числа. Найти сумму чётных чисел, которые больше 50.