Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a,m,n,k: real;
begin
readln(m,n,k);
if (m+n+k)< (m*n*k) then
a: =m+n+k
else
a: =m*n*k;
writeln(a);
end.
бухгалтерия, документооборот.
всегда брать столько чтоб спичек на столе оставалось четное
количество и при этом не делилось на 3
т.е. 4,8,12
qbasic
? "введите число"
input a
a: 2=b
if b=int(b) then 1 else 2
1 ? "это число четное" : goto 3
2 ? "это число не четное"
3 end
Популярные вопросы