Задача 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',</em>
' должны быть неотрицательными!')
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"