1.Программа создаёт 1-мерный массив на 100 целых чисел и заполняет его случайными целыми числами из диапазона 0..9 (использовать безусловный цикл).
2.Пользователю предлагается ввести любое целое число.
3.Программа вычисляет, сколько раз встречается заданное пользователем число
PROGRAM Privet;
VAR
x:real;
BEGIN
writeln('Который час?'); read(x);
if x > 24 then
writeln('Введенное число не является временем ' )
else
begin
if (x>=8) and (x<12) then writeln('Доброе утро!');
if (x>=12) and (x<17) then writeln('Добрый день!');
if(x>=17) and (x<23) then writeln('Добрый вечер!');
if(x>=23) or (x<8) then writeln('Доброй ночи!');
end;
end.
//вторая программа
var
x,x1,x2,y,y1,y2:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then
writeln('Точка принадлежит заданной области')
else
writeln('Точка не принадлежит заданной области');
end.
наибольшая поразрядная сумма может быть, если записаны три девятки, т.е. 27
2727 - удовлетворяет этому требованию. число 999999
277 - можно разбить только на 27'7. значит число имеет вид 999**. но сумма цифр 9** не может быть равна 7. не подходит.
2715 - разбиваем 27'15.
подходит. например, 99933
2730 - 27'30 не подходит
3027 - 30'27 не подходит
1527 - 15'27 подходит. например, 66999
727 - разбивается только на 7'27. значит, последние - три девятки. число **999. сумма цифр **9 не может быть равна 7. не подходит
512 -