<span><u>Задача а)</u>
</span>// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
a,b:real;
procedure WriteAvg;
begin
Writeln('Среднее= ',(a+b)/2)
end;
begin
Write('a,b='); Read(a,b);
WriteAvg
end.
<u>Тестовое решение:</u>
a,b=6 4.9
Среднее= 5.45
<u>Задача б)</u>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var c:=ReadlnChar('Введите символ:');
if c in ['A'..'z','А'..'я','Ё','ё'] then Writeln('буква')
else
if c in ['0'..'9'] then Writeln('цифра')
else Writeln('спецзнак')
end.
<u>Тестовое решение:</u>
Введите символ: i
буква
1.
Program zavdannia;
var x,y: real;
begin
read(x);
y:=(x+4)/(x-2);
write(y);
end.
2.
Program zavd2;
var x,y: real;
begin
y :=sqrt((x*x-4*x-4)/(x-8);
write(y);
end.
Жмешь на правую кнопку мыши (на папку) затем свойства и там написано : Размер папки
<em>VAR</em>
<em> a,b,c,d: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c,d);</em>
<em> </em>
<em> Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);</em>
<em>END.</em>