Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
вариант 2 - достаточно, так как грядки могут намокнуть другим способом( aka лейка )
австрия - вена
бельгия- брюссель
великобритания-лондон
германия-берлин
ирландия-дублин
я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;
end.
program;
var
max,val: integer;
label
start, ends;
begin
max: =-50;
val: =50;
start:
if val> max then val: =val-10
if val=max then goto ends;
goto start;
ends:
Популярные вопросы