Вопрос по информатике:
1. Найдите произведение чисел в диапазоне от с до d которые делятся на 4;
2. Дано число(трехзначное) найти сумму и определить четная она или нет.
Пожаловаться
- 24.01.2018 00:53
- Информатика
- remove_red_eye 3242
- thumb_up 36
Ответы и объяснения 1
1)
Program n1;
var c,d,i: integer;
p: real;
begin
readln(c,d);
p:=1;
for i:=c to d do if i mod 4=0 then p:=p*i;
writeln(p);
end.
2)
Program n1;
var a,sum: integer;
begin
sum:=0;
readln(a);
sum:=(a mod 10)+(a div 100) +(a mod 100 div 10);
if sum mod 2=0 then write('четная')
else write('нечетная');
end.
Program n1;
var c,d,i: integer;
p: real;
begin
readln(c,d);
p:=1;
for i:=c to d do if i mod 4=0 then p:=p*i;
writeln(p);
end.
2)
Program n1;
var a,sum: integer;
begin
sum:=0;
readln(a);
sum:=(a mod 10)+(a div 100) +(a mod 100 div 10);
if sum mod 2=0 then write('четная')
else write('нечетная');
end.
Пожаловаться
- 25.01.2018 19:12
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы