• С клавиатуры вводится трехзначное число. Найти произведение цифр числа; разделить 1 цифру числа на 3 цифру и вывести результат( в паскале)

Ответы 2

  • Программа на паскале внизу
    answer img
    • Автор:

      aitor
    • 5 лет назад
    • 0
  • это на первуюprogram chislo; var a,b,c,k,x: integer;Begin Writeln('Введите трехзначное число:'); readln(x); a:=x div 100;  b:=x mod 100 div 10; c:=x mod 10; k:=a*b*c; writeln('произведение чисел = ',k); readln;End.Вторая Задачаprogram chislo; var a,c,x: integer; k:real;Begin Writeln('Введите трехзначное число:'); readln(x); a:=x div 100; c:=x mod 10; k:=a/c; writeln('деление чисел = ',k); readln;End.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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