Клавиша на клавиатуре компьютера, служащая для перевода строки при наборе текста, а также для выбора пункта меню, подачи на исполнение команды, подтверждения какого-то действия или готовности пользователя и т. п.
CLS
a:
INPUT n
IF INT(n)<>n OR n<1 THEN PRINT "не может быть": GOTO a
FOR i=1 TO n
s=s+i
NEXT i
PRINT "сумма равна" ; s
END
1. Набираешь 3л ведро.
2. Переливаешь в 7л ведро.
3. Снова набираешь 3л ведро и переливаешь в 7л ведро. После в 7л ведре будет 6л, переливаешь еще литр с 3л.
4. И в ведре остается 2 литра.
Program vasil ;
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n <> 11 ) then writeln ( n , ' bochka' )
else if (m <= 4 and n <> 12 and n <> 13 and n <> 14 and m <> 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. Сейчас нет под рукой компилятора, не могу оттестировать.
Василий-4 курс
Борис-третий курс
Пётр-первый курс
Николай-второй курс