Задать вопрос
11 февраля, 14:02

Даны 4 числа если остаток от деления первого числа на второе больше или равно остатку деления третье и на четвертое то увеличить числа на 2 3 4 5 соответственно игаче гайти удвоенную сумму и произведение этих чисел

+3
Ответы (1)
  1. 11 февраля, 16:20
    0
    Var

    mas: array[1 ... 4] of integer;

    h, sum, proz:integer;

    begin

    h:=1;

    sum:=0;

    proz:=1;

    for var i : = 1 to 4 do read (mas[i]) ;

    if (mas[1] mod mas[2]) > = (mas[3] mod mas[4]) then for var j : = 2 to 5 do

    begin

    mas[h] : = mas[h] + j;

    h: = h+1;

    end

    else

    begin

    for var i : = 1 to 4 do

    begin

    proz:=mas[i] * proz;

    sum: = sum + mas[i];

    end;

    sum: = sum / 2;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны 4 числа если остаток от деления первого числа на второе больше или равно остатку деления третье и на четвертое то увеличить числа на 2 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Даны целые числа a и b. Найти их удвоенную сумму. Дано: a и b-целые числа (integer) Найти: u-удвоенную сумму (сумма целых чисел s - целое число, удвоенное целое - целое число integer)
Ответы (1)
Автомат получает на вход нечётное число X. По этому числу строится трёхзначное число Y по следующим правилам. 1. Первая цифра числа Y (разряд сотен) - остаток от деления X на 4. 2. Вторая цифра числа Y (разряд десятков) - остаток от деления X на 3.
Ответы (1)
На с + + с тернарной операцией Даны три целых числа. Требуется определить, превосходит ли максимум этих чисел удвоенную сумму двух других или нет.
Ответы (1)
Составить программу, которая находит минимальное натуральное число х, такое, что остаток от деления х на 10 равен 9, остаток от деления х на 9 равен 8, остаток от деления х на 8 равен 7, ... остаток от деления х на 2 равен 1.
Ответы (1)
Напишите программу, которая вводит с клавиатуры два целых числа, а затемвыводит их на экран, друг перед другом: сумму чисел разницу между числами квадрат разности между числами частное от деления первого числа на второе остаток от деления первого
Ответы (2)