В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
serditex89041361
serditex89041361
27.07.2021 17:47 •  Информатика

Васин младший брат Дима проходит деление и умножение. Он быстро сделал домашнюю работу, заскучал и пришёл к Васе, когда тот играл на компьютере. Чтобы Дима не мешал играть, Вася придумал для него хитрую задачу. Он написал три числа и велел Диме посчитать произведение второго и третьего, если первое делится и на второе, и на третье.
Выведи произведение второго и третьего числа, если первое делится и на второе, и на третье. Если не делится, не выводи ничего.

Ввод Вывод
12
2
4 8
14
7
4

Показать ответ
Ответ:
Derbeshto
Derbeshto
07.12.2022 11:45
Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.
0,0(0 оценок)
Ответ:
Selebruty1
Selebruty1
08.04.2023 13:29
Для того чтобы посмотреть содержимое страницы, заблокированной в нашей стране, используйте сайт-прокси? Да Для каждого спецсимвола, будь то кавычки «ёлочкой» или длинное тире, существует цифровая комбинация, которую нужно запомнить? да Чтобы изменить разрешение экрана монитора на Windows нужно войти во вкладку управления экраном панели управления, выбрать новое разрешение и нажать ОК? Да отправить фотку или файл по скайпу Нужно нажать правой кнопкой на получателя, выбрать «отправить файл», затем найти фото на вашем компьютере и нажать «Открыть». Передача файла начнётся и принимающей стороне нужно будет подтвердить приём файла.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота