Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
wiwivvv
01.04.2022 00:15 •
Информатика
Составить программу в паскале. у младенца кузьки вылезло уже s зубов, а у его бабы дуси осталось w зуба. задать с генератора случайных чисел 2 целых числа от 0 до 5 – значения для s и w. у кого зубов больше?
Показать ответ
Ответ:
Maksander
17.09.2020 16:56
Program Rinok;
Const x0=0;x1=5;
Var s,w: integer;
begin
Randomize;
s:=Random(X1-X0)+X0;
w:=Random(X1-X0)+X0;
writeln('у Кузи-',s);
writeln('у Дуси-',w);
if (s>w)
then
Writeln ('-у Кузи больше')
else
Writeln ('-у Дуси больше');
Readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alexader2352
06.06.2023 16:34
Для какого минимального значения XYв шестнадцатиричной(двузначного числа в шестнадцатеричной системе) верно 12X4в пятиричной=CY1в шестнадцатиричной? В качестве ответа введите значение...
азербайджанка12
28.11.2021 16:27
Как называется код, который применяется при организации дорожного движения? дорожные знаки Почтовый индекс правила игры «Гонки» штрихкод...
maksnovok007
18.12.2020 08:17
Паскаль Дано: writeln (s:6:2);Если s=114,32038, то на экране появится...
AishaZamyjem8
29.12.2021 17:21
Вычисли сумму чисел в MS Excel. 1. 212; 19; 1544; 98,7 2. 212; 19; 1544; 98,7; 57,6...
Вано153
19.12.2022 11:17
При игре в кости используется кубик с шестью гранями. сколько бит информации получает игрок при каждом бросании кубика? желательно с дано...
kosinets
03.06.2023 20:41
записать формулу в Excel...
livr5
09.03.2022 07:11
Расставьте числа по убыванию 11100 в двоичной системе 11010 в двоичной системе 29 в десятичной системе 10111в двоичной системе 25 в десятичной системе отмечу ответ лучшим...
risj83risj
14.08.2021 20:54
Складіть і запишіть 1 речення про зиму з 3 прикметниками....
benten2434
14.08.2021 20:54
1. какая масса кокса, содержащего 98% углерода, потребуется для получения железа из 1 кг руды, содержащей 90% оксида железа (3)? 2. осуществите цепочку превращений: fe → x → fe(oh)3...
Ринат2006
14.08.2021 20:54
15 what are you think about reading chekhow in english? would you like to read other russian authors works in english? ответы на вопросы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const x0=0;x1=5;
Var s,w: integer;
begin
Randomize;
s:=Random(X1-X0)+X0;
w:=Random(X1-X0)+X0;
writeln('у Кузи-',s);
writeln('у Дуси-',w);
if (s>w)
then
Writeln ('-у Кузи больше')
else
Writeln ('-у Дуси больше');
Readln
end.