Регистрация
igornagornov0
19.09.2020 06:46
Информатика
Есть ответ 👍

Программа запрашивает 2 числа,а затем запрашивает чему равно их произведение.если ответ явный ,то "молодец",если нет,то "учи " в паскале надо делать, )

120
128
Посмотреть ответы 3

Ответы на вопрос:

nata12377
nata12377
4,4(34 оценок)
Program legko; uses crt; var a,b,p: integer begin clrscr; {очистка экрана} writeln("введите два целых числа по очереди"); readln(a,b); writeln("теперь введите их произведение"); readln(p); if (p=a*b) then writeln("молодец"); else writeln("учи "); readkey; end.
Игорь2019365
Игорь2019365
4,7(56 оценок)

program matem;

uses crt;

var c1,c2,res: integer;

begin

  write('введите первое число, с1= ');

  readln(c1);

  write('введите второе число, с2= ');

  readln(c2);

  write('введите произведение этих чисел, res= ');

  readln(res);

  if res = c1*c2 then

    writeln('молодец') else

          writeln('учи ! ');

end.

настя7579
настя7579
4,4(9 оценок)

1. Нет

2. А

3. Б

4. Б

Вот ответы на эти вопросы

Популярно: Информатика