A)Pascal
Var
a,b,c,d, average: real;
Begin
Writeln('Введите 4 числа, каждый ввод закончить нажатием кнопки Enter');
readln(a,b,c,d);
Average:=(a+b+c+d)/4;
Writeln('Среднее Арифметическое 4-х чисел = ',Average);
end.
b)
var
Age,High:integer;
Ves:real;
begin
Writeln('Введите Возраст');
readln(age);
Writeln('Введите Рост<span>);
</span><span>readln(high);
</span>Writeln('Введите вес<span>);
</span><span>readln(ves);
</span>Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves);
end.
C)
var
n:integer;
begin
Writeln('Введите Число N');
readln(n);
n:=n*n;
Writeln('Квадратный корень равен= ',n);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x, y) := ReadReal2('Введите через пробел x и y:');
Print(Exp(x) - (y * y + 12 * x * y - 3 * x * x) / (18 * y - 1))
end.
Называется аналоговой. Аналоговая информация - это непрерывная информация, как рисунок. А есть ещё цифровая - её можно однозначно разделить на части, например на цифры.
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.