режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить СРЕДНЮЮ ЗАРЕГИСТРИРОВАННУЮ скорость всех автомобилей. Если не менее двух автомобилей двигались со скоростью не больше 40 км/ч, выведите «YES», иначе выведите «N0».
Программа получает на вход число проехавших автомобилей N (1 =< N =< 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300.Программа должна сначала вывести среднюю скорость, затем «YES» или «N0».
Var sum,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<=40 then inc(bol); inc(kol); inc(sum,x); end;writeln(sum/kol);if bol>1 then writeln(‘YES’) else writeln(‘NO’);end.
Источник: educatic.ru
Написать программу решения следующей задачи
Как Решать Задачи По Программированию?
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
- Алгебра
- Математика
- Русский язык
- Українська мова
- Информатика
- Геометрия
- Химия
- Физика
- Экономика
- Право
- Английский язык
- География
- Биология
- Другие предметы
- Обществознание
- История
- Литература
- Українська література
- Беларуская мова
- Қазақ тiлi
Показать ещё
Источник: www.shkolniku.com
Написать программу решения следующей задачи
Сборник решебников для школьников
Решение задач на Python #1
Напишите программу на языке Паскаль, для решения следующей задачи:
Categories Геометрия Предмет информатика
Для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры).
(Подсказка. Используйте тип данных integer и операции div и mod)
var a,b,c,d:integer,
begin
readln(a),
b:=(a div 100)mod 10,
c:=(a mod 100)div 10,
d:=b+c,
writeln(d),
readln,
end.
var a,b,c:integer,
begin
read (c),
a:=c div 100, a:=a mod 10,
b:=c div 10, b:=b mod 100,
write(a+b),
end.
Свежие записи
- Как решать алгебраические системы за 7 класс? 11.12.2014
- а у страдательного причастия прошедшего времени какие скффиксы? 11.12.2014
- Найдите наименьшее общее кратное данных чисел и вставьте его вместо звездочек 11.12.2014
Рубрики
- Алгебра (3 974)
- Геометрия (4 282)
- Информатика (3 665)
- Литература (4 242)
- Русский язык (3 801)
Источник: the-gdz.ru