WWW.DOCX.LIB-I.RU
БЕСПЛАТНАЯ  ИНТЕРНЕТ  БИБЛИОТЕКА - Интернет материалы
 

«Задача 1 Введите с клавиатуры 5 положительных целых чисел. Вычислите сумму тех из них, которые делятся на 4 и при этом заканчиваются на 6. Программа должна вывести одно ...»

Задача 1

Введите с клавиатуры 5 положительных целых чисел. Вычислите сумму тех из них, которые делятся на 4 и при этом заканчиваются на 6. Программа должна вывести одно число: сумму чисел, кратных 4 и оканчивающихся на 6.

Пример работы программы:

Входные данные Выходные данные

1216362620 52

program zadacha;

var i, s,x: integer;

begin s:= 0;

for i := 1 to 5 do begin write('введите ', i,'-e число:');

readln(x);

if (x mod 4=0)and (x mod 10 = 6) then

begin s:=s+x;

end;

end;

writeln('сумма чисел:', s);

end.

Задача 2

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.

Программа должна вывести одно число: количество чисел, кратных 5 или 9.

Program p51;

var a, sum: integer;

beginwriteln ('введите число');

readln (a);

sum:=0;

while a<>0 do

beginif (a mod 5=0) or (a mod 9 =0) then sum:=sum+1;

writeln ('введите число');

readln (a);

end;

writeln (sum)

end.

Задача 3

Напишите программу для решения следующей задачи.



На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Если хотя бы один из учеников правильно решил все задачи, выведите YES, иначе выведите NO.

Программа получает на вход количество учеников в классе N (1 N 30), затем для каждого ученика вводится количество правильно решённых примеров.

Пример работы программы:

Входные данные Выходные данные

4

3

9

2

8 2

NO

program homework5;

var a,i,i2,n: integer;

begin i:=0;

writeln('Введите количество учеников в классе: ');

read(n);

for n:=1 to n do

begin write('Введите количество решенных задач: ');

read(a);

if a<5 then

i:=i+1;

if a=10 then

i2:=i2+1;

end;

if i2>=1 then

writeln('YES')

else

writeln('NO');

writeln(i);

end.

Задача 4

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет(выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0– признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 100. Введенные числа не превышают 300.

Программа должна вывести среднее арифметическое двузначных чисел или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.

Пример работы программы:

Входные данные Выходные данные

10

120

49

0 29.5

111

1

0 NO

program homework7;

var a,b,i: integer;

c: real;

begin

i:=0;

b:=0;

c:=0;

write('Введите число: ');





readln(a);

while a<>0 do begin

if (a > 9) and (a < 100) then

begin

i:=i+1;

b:=b+a;

end;

write('Введите число: ');

readln(a);

end;

c:=b/i;

if i<>0 then

write('Результат: ', c)

else

write('NO');

end.

Задача5Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 9.

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.

Программа должна вывести одно число: максимальное число, оканчивающееся на 9.

 

Пример работы программы:

Входные данные Выходные данные

3

91923 19

program homework8;

var a,n,max: integer;

begin max:=9;

writeln('Введите количество чисел: ');

readln(n);

for n:=1 to n do begin

write('Введите число: ');

readln(a);

if a mod 10 = 9 then

if a > max then

max:=a;

end;

writeln('Результат: ', max);

end.

Похожие работы:

«Приложение № 1 к договору № _ от "" Правила предъявления, рассмотрения и удовлетворения претензий по качеству товара. Общие положения. Настоящие Правила составлены на основании положений действующего законодательства РФ, Гражданского Кодекса РФ, правил и указаний заводов-изготовителей. Порядок га...»

«10.04.2013 Прайс-лист Надувные лодки RiverFordНадувная лодка Riverford R-250 (гребная). Длина 250 см. Ширина 140 см. Диаметр баллона 36 см. Пассажировместимость2 чел. Надувные отсеки 2 Плотность ПВХ (борт) 700 гр./кв....»

«Меню с 15 по 19 февраля 2016 г. Понедельник / 15 февраля Завтрак Каша ячневая Чай Батон с сыром Обед Суп картофельный с макаронами Кура в томатном соусе Рис Компот из с/ф Хлеб пшеничный Хлеб ржаной Полдник Молоко Булочка "Ванильная" Ужин Овощное рагу Чай с лимоном Хлеб Вторник / 16 февраля За...»

«Приложение №2 к приказу Комитета образования администрации муниципального района "Город Валуйки и Валуйский район" от 28.08. 2012 года № 477-од Список микрорайонов и населенных пунктов, закрепленных замуниципальными общеобразоват...»

«Положение о классификационных турнирах МТС.К классификационным турнирам РТС применяются в полной мере Общие положения Правил проведения турниров РТС, а также нижеследующие дополнения.1. Деление участников по классам В соответствии с международной практикой совершенствования в бальных танцах участники соревно...»

«Команда Санкт-Петербурга на Чемпионат России среди ветеранов 28 сентября – 01 октября 2017 г., г. Адлер № Ф.И.О. Г. р. Группа Вид,МВид,М1 Абрамов Александр Александрович 24.04.1944 М-70 Ядро -1 Высота -1 2 Ант...»

«Контейнер объёмом 660 лтГабариты: 1150*800*800ммКомплектация:Крышка автоматическая, оснащена двумя пружинами по бокам;Колёса D 160 мм.Характеристики:Объём 660лт;Грузоподъёмность 290 кг;Для мусоровозов с задней загрузкой;Цвет по желанию Заказчика. Цена: 1 970 000 сум. Контейнер объёмом 770 лт Габари...»

«г.Тверь 26 августа 2017 года Монопородная выставка ранг ПК Судья Прозоров Дмитрий АльбертовичЧИХУАХУА ГЛАДКОШЕРСТНАЯ кобели классПРОМЕЖУТОЧНЫЙ/INTERMEDIATE CLASS1ИРУС СМЕЛЫЙ ВОИН...»








 
2017 www.docx.lib-i.ru - «Бесплатная электронная библиотека - интернет материалы»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.