Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.09.2016 07:43
- Информатика
- remove_red_eye 19454
- thumb_up 10
Ответы и объяснения 1
var i,k:integer;
begin
for i:=30 to 90 do
begin
k:=i mod 6;
if (k=1)or(k=2)or(k=5) then write(i,' ');
end;
end.
Результат:
31 32 35 37 38 41 43 44 47 49 50 53 55 56 59 61 62 65 67 68 71 73 74 77 79 80 83 85 86 89
3.
var i,s:integer;
begin
s:=0;
for i:=1 to 70 do
if (i mod 3=0)or(i mod 7=0) then s:=s+i;
write('s = ',s);
end.
Результат:
s = 1087
4.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 50) then write(i,' ');
end.
Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
5.
var i,p:integer;
begin
p:=1;
for i:=10 to 99 do
if (i mod 2=1)and(i mod 11=0) then p:=p*i;
writeln('p = ',p);
end.
Результат:
p = 152193195
- 21.09.2016 15:13
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.