Объяснение:
program a;
var
a, b: integer;
begin
Readln(a, b);
if a > b then
writeln('Розочки') ;
if a < b then
Writeln('кактусы') ;
end.
Поделитесь своими знаниями, ответьте на вопрос:
написать программу в паскале. В соревнованиях "весёлые старты" участвуют команды "розочки" (N человек) и команда "кактусы" (м Человек каждый принёс в команду свои . Оператор должен ввести каждого и вывести результат - кто победил.
Объяснение:
program a;
var
a, b: integer;
begin
Readln(a, b);
if a > b then
writeln('Розочки') ;
if a < b then
Writeln('кактусы') ;
end.