Как то так=) думаю в обозначениях разберешься=)
Program marks;
var
a,b:integer;
begin
Writeln('Введите кол-во сделанных ошибок: ');
readln(a);
b:=0;
if a=0 then b:=5;
if (a>0) and (a<=3) then b:=4;
if (a>3) and (a<=5) then b:=3;
if (a>5) then b:=2;
writeln('Оценка: ',b);
readln;
<span>end.</span>
<u>Будет напичатано вот что:</u>
<em>(Черточками выделю экран) </em>
-------------------
136101521283645
___________
<em>Точно так, напечатает машина.</em>
<em>1) write - без ln, печатает все в одну строку.</em>
<em>2) Команда вывода стоит в самом цикле, поэтому выводяться все числа слитно.</em>
var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
10. Подставляем значения переменных х1, х2, х3, х4 во все функции и получается, что подходит только 4 функция.
Ответ: 4
11. Также можно подставить все данные числа в функцию, и только при х=8 значение функции равно 0.
Ответ: 4.
12. ГВБА