Вопрос по информатике:
Даны 4 числа если остаток от деления первого числа на второе больше или равно остатку деления третье и на четвертое то увеличить числа на 2 3 4 5 соответственно игаче гайти удвоенную сумму и произведение этих чисел
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.04.2017 16:41
- Информатика
- remove_red_eye 6897
- thumb_up 24
Ответы и объяснения 1
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.
- 21.04.2017 06:31
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.