нужно написать на паскале: 1. Написать программу, которая в массиве из N двухзначных положительных чисел (числа могут повторяться), находит сумму и количество тех из них, которые делятся на введенное число C (при вводе значения числа С просим вводить число не более 100. Проверять этот факт не надо). Если же таковых чисел нет, то требуется вывести об этом информацию на экран.
2. Петр Макарович работает водителем маршрутки. Каждый день в течении А дней, он заправляет свою "Газель" до полного (полный бак) на автозаправки Ёжик-Нефть. Каждый день цена за литр бензина может быть разная и зависит только от фантазии владельцев данной автозаправки. Требуется определить, максимальную и минимальную сумму наличности, которая понадобится Петру Макаровичу для заправки своей "Газели" в течении указанного времени, при условии, что бак автомобиля НЕ меняет свой объем и составляет В литров.
3. Бывший бухгалтер Мария Ивановна ведет скурпулезный подсчет того количества денег, которое она тратит ежемесячно на содержание своего кота Василия уже Х лет подряд(количество лет число целое). Рацион кота из месяца в месяц не меняется. Стоимость ежемесячной корзины "на Кота" она регулярно записывает. Требуется расположить траты Марии Ивановны по возрастанию, а также определить разность между первой и последней тратами. (без поиска минимума и максимума)
Begin
Write('Z = ');ReadLn(Z);
if Z>0 then WriteLn('Положительное')
else if Z=0 then WriteLn('Равное нулю')
else WriteLn('Отрицательное')
End.
Пример:
Z = -5
Отрицательное
Z = 0
Равное нулю
Z = 256
Положительное
Z = 10455
Положительное
Var
X,Y:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if (X = 0)and(Y = 0) then WriteLn('Начало координат')
else if (X=0) then Write('Ось абсцисс')
else if (Y=0) then WriteLn('Ось ординат')
else if (X>0) then
if (Y>0) then WriteLn('Первая четверть')
else WriteLn('Вторая четверть')
else
if (Y<0) then WriteLn('Третья четверть')
else WriteLn('Четвёртая четверть')
End.
Пример:
X = 0
Y = 0
Начало координат
X = 0
Y = 1
Ось абсцисс
X = 1
Y = 0
Ось ординат
X = 1
Y = 1
Первая четверть
X = 1
Y = -1
Вторая четверть
X = -1
Y = -1
Третья четверть
X = -1
Y = 1
Четвёртая четверть
Var
a,b,c,S:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(a div 10) mod 10;
c:=a mod 10;
a:=a div 100;
S:=a+b+c;
if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число')
else WriteLn('Сумма цифр(',S,') не является двузначным числом');
if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет');
if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет')
End.
Пример:
Введите трёхзначное число: 74
Сумма цифр(11) - двузначное число
Цифра 4 есть
Цифра 7 есть
Введите трёхзначное число: 71
Сумма цифр(8) не является двузначным числом
Цифры 4 нет
Цифра 7 есть
Введите трёхзначное число: 13
Сумма цифр(4) не является двузначным числом
Цифры 4 нет
Цифры 7 нет