<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('первое', 'второе','третье','четвертое','пятое');
var p,r:real;
var c:char;
Write('Введите первое число: '); Readln(r);
for var i:=0 to 3 do begin
Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
Write('c) умножить, d) разделить): '); Readln(c);
Write('Введите ',s[i+1],' число: '); Readln(p);
case c of
'a':r+=p;
'b':r-=p;
'c':r*=p;
'd':r/=p;
end;
Writeln('Результат: ',r)
end
end.
Эсли win редактор то:
1 открыть программу
2 найти нужные материалы
3 сделать превью
несли надо добавить анимацию
4 вставить аудио файл
5 составить Титов
6 сохранить файл...
Ответ:
8
Объяснение:
По росту ученики стоят так (самый высокий 6, самый низкий 1):
3 4 1 6 5 2
1) 3 4 6 1 5 2
2) 3 6 4 1 5 2
3) 6 3 4 1 5 2
4) 6 3 4 5 1 2
5) 6 3 5 4 1 2
6) 6 5 3 4 1 2
7) 6 5 4 3 1 2
8) 6 5 4 3 2 1