в первый день туристы ехали на велосипедах 4 часа со скоростью 15 км/ч Во второй день оно ехали на велосипедах такое же расстояние но за 5 часов. С какой скоростью ехали туристы на велосипедах во второй день ?
Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var lvl:=0; var s:= ''; var predE:=false; foreach var c in s do if c='E' then begin if predE then begin predE:=false; lvl+=1 end else predE:=true end else if c='B' then begin predE:=false; lvl+=1 end; Writeln(lvl,' level') end.
Результат выполнения программы 63 level
И второй вариант, "как не учат в школе":
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var s:= ''; Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level') end.
ответ:1. 15:5=3(км)- ща один час
2. 5*5=25(км)- туристы проехали во второй день
ответ: 25км. туристы проехали во второй день
Объяснение: