Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
(1) цирк (2) пирк (3) пирзприз (1) волк (2) солк(3) солн слон (1) стук (2) (м) мтук(3) (ь) мтуьмуть (1) крот (2) (м) мрот(3) (г) мрогморг
карандаш - графит; ископаемое, состоящее из угля и желез это же вещество, вставленное пруточками в деревянную трубочку, для черченья и рисованья.
var i,s: integer;
writeln('summa ');
for i: =100 to 999 do
if i mod 17 =0 then s: =s+i else s: =s+0;
Популярные вопросы