tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Игра в кости . выбрасывается
Игра в "кости". выбрасывается 2 числа. если они совпали - вы победили. (паскаль)
zbbzk
1 27.08.2019 09:30
0
Ответы
vaceslavsmelev
05.10.2020 22:31
Var A,B:integer;
Begin
Write('Чтобы бросить кости нажмите Enter');
ReadLn;
Repeat
A:=random(6)+1;
B:=random(6)+1;
WriteLn(A,' ',B);
WriteLn('Попробуете ещё раз?');
WriteLn('1 - повторить, 0 - выйти');
ReadLn(A);
Until (A=0)or(A=B);
if A=B then WriteLn('Вы победили!')
else WriteLn('Вы проиграли!');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sasharsm
19.11.2020 12:08
Запишіть арифметичний вираз за правилами мови C++ y=3x^2 - 4 / x -1...
lera1038
19.11.2020 12:08
Что делать если видеокарта nvidia 1050ti сильно греется даже в пиксельных играх аж дросили пишат!...
Мадмуазель1
16.04.2020 22:10
С ЧЕМ МОЖЕТЕ ИНФОРМАТИКА 8 КЛАСС...
Aluniy
16.04.2020 22:08
Написать программу и начертить блок-схемы решения задач: Дан массив вещественных чисел, состоящий из 10 элементов. Найти максимальный элемент массива....
Dimon2005Dima
10.03.2021 10:16
Учитывая начало и конец программы, найдите тело. Program paralli; Var p,s:integer; h:real; Begin read(p,s); ……………. Write(h); End. ;...
аннасерб
10.03.2021 10:16
1. Які існують типи запитів на змінення? 2. Як запит на вибірку перетворюється в запит на створення таблиці? 3. Як запит на вибірку перетворюється в запит на додавання?...
Jdhcb
10.03.2021 10:17
СЕГОДНЯ НУЖНО СДАТЬ ДО 18:00 Построить трассировочную таблицу для алгоритма «Нахождения большего числа из двух данных чисел». Если A B, то С=A-B, иначе С=A+B. Например,...
яяяяяя60
10.03.2021 10:18
с информатикой 8 класс. даю . ...
гоша206
06.07.2019 17:40
Дан треугольник со стороной a и прилежащими углами y и b. вычислить площадь треугольника, найти остальные стороны и угол между ними. написать в паскале...
LAKI2280041
15.04.2020 11:28
Твір мініатюра на тему війна- трагедія людської долі(за новелою гер переможений)...
Популярные вопросы
Речення з словополученням один за одним...
3
Вкаком варианте ответа указана правильная последовательность действий...
2
Ко второй сигнальной системе человека относят 1) условные рефлексы 2)...
3
Определите значение переменной a после исполнения данного фрагмента...
1
Напишите ионное уравнение: koh+p2o5-- kcl+agno3-- mg+cucl2-- kno3+na2co3--...
2
He speaks english every day. we meet friends every day. каждое предложение...
2
Определить падеж смотреть фильм затрудняюсь, или и.п или в.п...
1
Какие особенности строения земноводных связаны с их образом жизни?...
1
Из 35 кг винограда выходит 25 л сока. хозяин переработал 105 кг винограда....
3
Сделать синтаксический разбор предложения (процедура приготовления оставалась...
2
Begin
Write('Чтобы бросить кости нажмите Enter');
ReadLn;
Repeat
A:=random(6)+1;
B:=random(6)+1;
WriteLn(A,' ',B);
WriteLn('Попробуете ещё раз?');
WriteLn('1 - повторить, 0 - выйти');
ReadLn(A);
Until (A=0)or(A=B);
if A=B then WriteLn('Вы победили!')
else WriteLn('Вы проиграли!');
End.