Задать вопрос
30 апреля, 12:32

Даны три числа. Если их произведение меньше 50, то числа увеличить в 10 раз. Составить программу в Delphi

+5
Ответы (1)
  1. 30 апреля, 14:40
    0
    A:=strtofloat (edit1. text) ;

    b:=strtofloat (edit1. text) ;

    c:=strtofloat (edit1. text) ;

    d:=a*b*c;

    if d<50 then

    begin

    a:=a*10;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны три числа. Если их произведение меньше 50, то числа увеличить в 10 раз. Составить программу в Delphi ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите информатика 8 класс Задача 1. Составить программу определяющую длину фамилии и имени. Задача 2. Даны два слова. Составить программу определяющую произведение данных слов. Задача 3.
Ответы (1)
Даны две строки. Вычеркнуть из строки A символы, не встречающиеся в строке B. Помогите написать программу для delphi или pascal.
Ответы (1)
Free Pascal 1. Составить программу для вычисления площади прямоугольника по его длинам сторон a и b. 2. Даны два целых числа x и y. Составить программу для нахождения большего из них. 3.
Ответы (1)
Вычислить произведение четырех натур. чисел, используя только операцию сложения. (Язык пр:pascal) 1) Написать программу (обычную) 2) Написать программу с использованием процедуры 3) Написать программу с исп. функции 4) Написать программу с исп.
Ответы (1)
Delphi На плоскости задана прямоугольная система координат с осями Х и У. Составить программу которая вводит координаты точки (х, у) и сообщает принадлежит ли эта точка кругу с центром в начале координат и радиусом r или лежит на границу его
Ответы (1)