Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
там где к\/к
потому что это правило такое нужно учить
пусть введенный интервал будет
b и c,где b< c
var a,b,c,i: longint;
begin
read(b,c);
for i: =b to c do
if i mod a=0 then write(i);
end.
program xxx;
var i, n, s : integer;
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
Популярные вопросы