Задать вопрос
28 сентября, 20:31

Помогите! В Паскале! Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа.

+5
Ответы (1)
  1. 28 сентября, 22:11
    0
    var i, j:integer;

    begin

    for i:=1 to 93 do

    for j:=1 to 93 do

    begin

    if (i=j*2) and (i+j=93) then writeln ('Большее число равно ', i,' а меньшее равно ', j) ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите! В Паскале! Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите написать в паскале! Ввести три целых числа x, y, z. Если хотя бы одно из них четное, то первому четному числу присвоить значение произведения этих чисел.
Ответы (1)
Проверить являются ли два введенных числа дружественными. Дружественные числа - пара чисел, каждое из которых равно сумме собственных делителей другого (Делителем числа называется всякий его делитель, отличный от самого числа) Дружественные числа
Ответы (1)
Автомат получает на вход два двузначных десятичных числа. По полученным числам строится новое десятичное число по следующим правилам. 1. Вычисляются два числа - сумма цифр первого числа и сумма цифр второго числа. 2.
Ответы (1)
1. Ввести целое число и найти сумму его цифр. Пример Введите целое число 1234 Сумма цифр числа 1234 равна 10 2. Вычислить в Паскале степень числа, используя цикл while
Ответы (1)
Решить в С# Определить, является ли числоаделителем числа bили, наоборот, число bделителем числа а. Ответом должны служить сообщения "Да, одно из чисел является делителем другого" или "Нет, ни одно из чисел не является делителем другого".
Ответы (1)