Вопрос школьника по предмету Информатика
1. Найдите произведение чисел в диапазоне от с до d которые делятся на 4;
2. Дано число(трехзначное) найти сумму и определить четная она или нет.
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Радоваться ————
Бояться —————-
пожалуйста .Так написано в книге Do some research on the internet and make notes on more home remedies . Present your findings to the class. Вот перевод Проведите некоторое исследование в Интернете и сделайте заметки о домашних средствах. Представляйте свои результаты классу.
Мне нужно написать про лимон щас напишу как примерно только это про имбирь do you have an upset stomach . you could chewing a piece of ginger. you can also do this before a journey if you suffer from travel sickness . Ginger may also help you if you have bad breath. И еще мне нужно 3-4 предложение заранее спасибо