1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.
Скорее всего уже поздно, но вот:
1) 1030
2) 9
3) 55
Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
/Ввод/
t:=16;
r:=3;
d:=5;
s:=r*t*d;
/Вывод/
s; 'га'