3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Декларативные знания.
Я знаю, что вода кипит при температуре 100°С.
Я знаю, что машина должна остановиться на красный свет светофора.
Процедурные знания.
Я знаю, как пользоваться таблицей умножения.
Я знаю, как приготовить кашу.
Я знаю, как из бумаги сделать самолётик.
Извини, текст не понятный. Не могла бы ты переписать его?
program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.