А)Напишите процедуру,которая при заданных a,b выводит среднее число (используя при этом...

Question

А)Напишите процедуру,которая при заданных a,b выводит среднее число (используя при этом глобальные переменные)
б)Дается буква или символ. Напишите программу определяющая буква это или символ

Answer 1

Задача а)

// 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
буква