А)напишите процедуру,которая при заданных a,b выводит среднее число (используя при этом переменные) б)дается буква или символ. напишите программу определяющая буква это или символ
// 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.
Тестовое решение: a,b=6 4.9 Среднее= 5.45
Задача б)
// 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.
// 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.
Тестовое решение:
a,b=6 4.9
Среднее= 5.45
Задача б)
// 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.
Тестовое решение:
Введите символ: i
буква