ответ: Решение снизу, могут быть ошибки в компиляции, но в целом все верно
Объяснение:
program z3;
var a,b,c:integer;
Begin
readln(a,b);
s:=a+b;
if s>300 then writeln('Не хватит')
else writeln ('Хватит, останется: ', 300-s);
end.
ответ: Решение снизу, могут быть ошибки в компиляции, но в целом все верно
Объяснение:
program z3;
var a,b,c:integer;
Begin
readln(a,b);
s:=a+b;
if s>300 then writeln('Не хватит')
else writeln ('Хватит, останется: ', 300-s);
end.