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

Найти сумму,разность и произведение любых пяти чисел от 0 до 999 a: =a1*a2*a3*a4*a5 b: =a1+a2+a3+a4+a5 c: =a1-a2-a3-a4-a5

Показать ответ
Ответ:
KowkaSдеsь
KowkaSдеsь
02.10.2020 20:12
program pr;
uses crt;
Var rand,b,c,i:integer;   
      a:real;

Begin

i:=1;
a:=random(1000);
Write('a = ',a);

repeat
rand:=random(1000);
Write(' * ',rand);
a:=a*rand;
i:=i+1;
until (i=5);

Write(' = ',a);
Writeln;

i:=1;
b:=random(1000);
Write('b = ',b);

repeat
rand:=random(1000);
Write(' + ',rand);
b:=b+rand;
i:=i+1;
until (i=5);

Write(' = ',b);
Writeln;

i:=1;
c:=random(1000);
Write('c = ',c);

repeat
rand:=random(1000);
Write(' - ',rand);
c:=c-rand;i:=i+1;
until (i=5);

Write(' = ',c);
Writeln;

end.
Найти сумму,разность и произведение любых пяти чисел от 0 до 999 a: =a1*a2*a3*a4*a5 b: =a1+a2+a3+a4+
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота