а)Напишите процедуру,которая при заданных a,b выводит среднее число (используя при этом глобальные переменные)
б)Дается буква или символ. Напишите программу определяющая буква это или символ
Ответы
Ответ дал:
0
Задача а)
// 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
буква
// 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
буква
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад