Пожалуйста помогите!!!!! Нужно сделать с подмогою PASCALЯ СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ Окончить
Пожалуйста помогите!!!!! Необходимо сделать с подмогою PASCAL
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ Окончить И ЕСЛИ ЕСТЬ Оплошности- Поправить
Имеется n кол-во воспитанников одного класса. Для каждого в компьютер вводится рост. До 160-маленький, от 160 до 170-средний, от 170-высокий.
Вот начало программы:
PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ Воспитанники В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ Собственный РОСТ');
READLN (B);
N=N+1
IF Blt;160 THEN.................
..................
..................
....................
1 ответ
Света Кшивицкая
Var
Rost: array[1..50] of real;
n, i: integer;
begin
write('Сколько человек в классе? ');
readln(n); Ввод и чтение кол-ва человек в классе
for i := 1 to n do
begin
write('Рост воспитанника: ');
readln(Rost[i]);
if Rost[i] lt; 160
then writeln('Рост ', i, '-ого воспитанника маленький')
else
if (Rost[i] gt; 159) and (Rost[i] lt; 170)
then writeln('Рост ', i, '-ого воспитанника средний')
else
writeln('Рост ', i, '-ого ученика высокий');
end;
end.
Rost: array[1..50] of real;
n, i: integer;
begin
write('Сколько человек в классе? ');
readln(n); Ввод и чтение кол-ва человек в классе
for i := 1 to n do
begin
write('Рост воспитанника: ');
readln(Rost[i]);
if Rost[i] lt; 160
then writeln('Рост ', i, '-ого воспитанника маленький')
else
if (Rost[i] gt; 159) and (Rost[i] lt; 170)
then writeln('Рост ', i, '-ого воспитанника средний')
else
writeln('Рост ', i, '-ого ученика высокий');
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов