Таблица содержит следующие данные об учениках школы: фамилия, возраст и рост ученика. сколько учеников - id683500620201008 от elvira13131313 08.10.2020 20:38

Question

Информатика: Таблица содержит следующие данные об учениках школы: фамилия, возраст и рост ученика. сколько учеников могут заниматься в баскетбольной секции, если туда принимают детей с ростом не менее 160 см? возраст не должен превышать 13 лет. составить таблицу.

elvira13131313 · Accepted Answer

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('Введите Рост);
readln(high);
Writeln('Введите вес);
readln(ves);
Writeln('Ваш возраст ',age,'Ваш Рост ', high, ' Ваш Вес ',ves);
end.

C)
var
n:integer;
begin
Writeln('Введите Число N');
readln(n);
n:=n*n;
Writeln('Квадратный корень равен= ',n);
end.

MOGZ ответил