Было всего 5 остановок, в итоге кроме Буратины было 30 пассажиров, если считать Буратину, то тогда 31 пассажир.
Начало
Присвоить С=14
Метка1: Если C>130 Тогда ВЫХОД
С=С+1
Вывод С
Вывод Символ ':'
Вывод 1,8*C+32
Вывод Символ перевода строки
Перейти Метка1
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.
Var
A,B:real;
Begin
WriteLn('Введите два числа');
ReadLn(A,B);
WriteLn('Сумма данных чисел равна: ',A+B)
End.
Пример:
Введите два числа
3.14159 2.71828
Сумма данных чисел равна: 5.85987