1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;
Я знаю, информатика Босова 7 класс?
Имя (везде первые буквы)
М В Л А
инструмент
С + - - -
У - - + -
П - + - -
К - - - +
факультет
Б ** - ** -
И - - - +
Г - + - -*
<span> Ф ** - ** -
</span>*ПИОНИСТ НА ГЕОГ. А КТО НЕ ПИОНИСТ-НЕ НА ГЕОГ., ЗНАЧИТ АНДРЕЙ НЕ ГЕОГРАФ.
Т.К. ЛЕОНИД НЕ НА ГЕОГ., ТО ОН НЕ ПИОНИСТ,ЗНАЧИТ ВЛАД-ПИОНИСТ, И ОН НА ГЕОГ.
<span>**Но кто биолог и физик - я не догадалась(да и вопроса такого не стоит). </span>
1)
3)
4)
И наверное 6) но это не точно
Оканчивается на 23 - это значит, что остаток при делении должен получится сначала 3, а потом 2.
63 / 5 = 12 и остаток 3
12/ 5 = 10 и остаток 2
10/ 5 = 2 => 223(5) = 63(10)
63/4 = 15 и остаток 3
15 /4 = 3 т.е. уже не подходит - оканчивается на 33
Дальше смотрим при делении 63 на что останется 3 в остатке..
63/30 = 2 и остаток 3
23(30) = 63(10)
Program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
<span>end.</span>