Question

Помогите пожалуйста с заданиями.

Answer 1

Задача 1: 73

Задача 2:

var s,n: integer;

begin

s:=0;

for n:=5 to 38 do

if (n mod 4 =0) then s:=s+n;

writeln(s);

end.

Задача 3:

var i,a,b,s: integer;

begin

s:=0;

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

if (a<0) or (b<0) then writeln('Числа a и b',

' должны быть неотрицательными!')

else begin

for i:=a to b do

if (i mod 10 = 5) then s:=s+1;

writeln('Количество чисел от ',a,' до ',b,', оканчивающихся',

' на 5: ',s);

end;

end.

1) При a=-8 и b=6 программа выведет

"Числа a и b должны быть неотрицательными!"

2) При a=9 и b=44 программа выведет

"Количество чисел от 9 до 44, оканчивающихся на 5: 3"