procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
Вот нарисовал в Painte:
А вот выбор в ПАСКАЛЕ (оператор CASE)
И вот еще:
Ответ:
я незнаю:)
Объяснение:
я тупой оалввлдвдадададщащвща
1 <
2 ? 1,3
3 x
4 >
5 ? 4,6
6 x
7 >
8 ? 9,1
9 !
Ответ: а)
Прд условие подходят и а) и d), но а)- большее