Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, s : integer;
begin
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
end.
qbasic
? "введите число"
input a
a: 2=b
if b=int(b) then 1 else 2
1 ? "это число четное" : goto 3
2 ? "это число не четное"
3 end
Популярные вопросы