Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,s,i: integer;
begin
readln(a,b);
if a> b then
for i: =b to a do
s: =s+i
else
for i: =a to b do
s: =s+i;
writeln(s);
end.
видеокарта, монитор. это
a-возраст cаши
b– возраст маши
program r;
var a,b: integer;
if a=b then writeln («ровесники»)else writeln( «неровесники»)
Популярные вопросы