Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Объяснение:
Решай подобные задания по данной формуле,которую я написала перед решением с ней очень и легко))
var a,b,i,s: integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s: =0;
if a< b then
for i: =a to b do
if i mod 2 = 0 then
s: =s+1;
end;
if a> b then
for i: =b to a do
writeln(s)
end.
program xxx;
var i, s : integer;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
Популярные вопросы