Написать программку, водящую учет очков, набранных каждой командой при забаве в
Написать программку, водящую учет очков, набранных каждой командой при забаве в баскетбол. Количество очков, приобретенных командами в ходе игры, может быть равно 1, 2 либо 3. После окончания игры выдать итоговое известие и указать номер команды-победительницы. Окончание забавы условно моделировать вводом количества очков, одинакового нулю. На паскаль
Задать свой вопрос
Валерий Зимошин
щас напишем
Амина Скирневская
varn,r,i,k1,k2,r1:integer;beginreadln(n); //м а ггв Ёа вмfor i:=1 to n dobeginr:=random(2)+1;case r of1:beginr1:=random(2)+1;writeln('1 Komanda zabila',r1);k1:=k1+r;end;2:beginr1:=random(2)+1;writeln('2 Komanda zabila',r1);k2:=k2+r;end;3:beginr1:=random(1)+1;writeln('Komanda ',r1,' Pochti zabila no Promax(((');
Valerij
end;end;end;if k1>k2 thenbeginWriteLn('1 Komanda WIN ',k1);end;if k2>k1 thenbeginwriteln('2 Komanda WIN ',k2);end;if k1=k2 then writeln('Pobedila Drijba ',k1);end.
2 ответа
Елена
var
commands: array [1..2] of byte;
buf: string;
begin
writeln('Формат ввода: ( комманды)(пробел)(очки)');
writeln('К примеру: 1 3');
writeln(' О');
repeat
readln(buf);
if buf = '0' then break;
commands[integer.Parse(buf[1])] += byte.Parse(buf[3]);
until false;
writeln(String.Format('Команда 0 одолела во счётом 1 очк.', commands[1] gt; commands[2] ? 1 : 2, max(commands[1], commands[2])));
end.
commands: array [1..2] of byte;
buf: string;
begin
writeln('Формат ввода: ( комманды)(пробел)(очки)');
writeln('К примеру: 1 3');
writeln(' О');
repeat
readln(buf);
if buf = '0' then break;
commands[integer.Parse(buf[1])] += byte.Parse(buf[3]);
until false;
writeln(String.Format('Команда 0 одолела во счётом 1 очк.', commands[1] gt; commands[2] ? 1 : 2, max(commands[1], commands[2])));
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Облако тегов