• Пожалуйста, помогите с Паскаль АВС!
    1. Найти наименьшее из трех введенных с клавиатуры чисел
    2. Найти произведение трех четных введенных с клавиатуры чисел
    Заранее спасибо!

Ответы 1

  • 1.var a,b,i,n,min:integer;beginwriteln('Input value');read(a);min:=a;for i:= 1 to 2 do begin   writeln('Input value');   read(a);   if min>a then min:=a;end;writeln('min = ',min);end.2.var a,b,c:integer;beginwriteln('Input a');read(a);writeln('Input b');read(b);writeln('Input c');read(c);a:=a*b*c;writeln('prod = ',a);end.
    • Автор:

      aracely
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years