№1
var a,b,c,sr_arf: real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
sr_arf:=(a+b+c)/3;
writeln('Среднее арифметическое чисел = ',sr_arf);
end.
№2
a=a + \frac{b}{c}
b= \frac{4}{2a - |b| + 5}
c= \sqrt{ {a}^{2} + b \times b }
Uses graphabc;
begin
setwindowsize(400,190);
rectangle(20,20,380,70);
setbrushcolor(clred);
rectangle(20,70,380,120);
setbrushcolor(clblue);
rectangle(20,120,380,170);
end.
Такие задания очень легко решаются, если заменить логические знаки на арифметические. Сейчас я напишу логические знаки и их аналогичные арифметические.
∧ или & - * (умножение)
∨ - + (сложение)
¬ - отрицание (1 превращается в 0, а 0 в 1)
Запишу в качестве примера последнюю таблицу первую строчку
при A=0 B=0 C=0
A&B меняем на A*B
получается 0*0 ответ 0
A&B∨C меняем на A*B+C
получается 0*0+0 ответ 0
¬(A&B∨C) меняем на ¬(A*B+C)
получается ¬(0*0+0) сначала решаем в скобках, будет ¬(0) или ¬0 ответ: 1
Думаю всё понятно, ничего сложного. В приложении прикрепляю 2 последние таблицы.
Четвёртый правильный ответ
var i,s:integer;
begin
for i:=1 to 11 do s:=s+i*i;
writeln (s)
end.