Укажите истинные высказывания
Укажите один или несколько правильных вариантов ответа:
1Компьютер управляет работой связанных с ним технических устройств по выполнению алгоритмов
2Человек исполняет алгоритмы
3Компьютер сам выполняет алгоритмы (программы)
4Исполнитель управляет работой связанных с ним технических устройств по выполнению алгоритмов
5Человек разрабатывает алгоритм
6Человек управляет работой других исполнителей по выполнению алгоритма
7Компьютер разрабатывает алгоритмы
8Исполнитель четко и безошибочно выполняет алгоритмы, составленные из команд, входящих в его СКИ
9Исполнитель разрабатывает алгоритмы
begin
writeln('Введите часы: ');
readln(a);
writeln('Введите минуты: ');
readln(b);
if (a > 6) and (a < 10) then writeln('Утро');
if (a = 10) and (b = 0) then writeln('Утро');
if (a = 6) and (b >= 30) then writeln('Утро');
if (a > 10) and (a < 16) then writeln('День');
if (a = 10) and (b >= 1) then writeln('День');
if (a = 16) and (b <= 30) then writeln('День');
if (a > 16) and (a < 22) then writeln('Вечер');
if (a = 22) and (b = 0) then writeln('Вечер');
if (a = 16) and (b >= 31) then writeln('Вечер');
if (a > 22) or (a < 6) then writeln('Ночь');
if (a = 22) and (b >= 1) then writeln('Ночь');
if (a = 6) and (b <= 30) then writeln('Ночь');
end.
var
n,p:integer;
s: string;
begin
write ('Введите число: ');
readln (n);
if n<0 then n:=-n; // отрицательное число переделываем в положительное, чтобы "длина строки" ниже не получилась больше количества цифр в числе
str(n,s); // преобразуем число в строку, чтобы узнать длину числа (количество цифр)
if (length(s) mod 2)=0 then n:=n div 10; // проверяем длину числа на четность. так как нам нужны цифры с НЕЧЕТНЫХ мест, убираем из числа последнюю цифру, которая стоит на ЧЕТНОМ месте:
p:=1;
while n>=1 do begin // организуем цикл ПОКА число не станет меньше единицы (в цикле мы будем отрезать от него по две цифры)
p:=p*(n mod 10); // произведение умножаем на последнюю цифру числа (остаток от деления числа на 10)
n:=n div 100; // отрезаем от числа 2 последние цифры. (в последней итерации цикла оно примет вид 0,0х, т.е. будет больше 0, но меньше 1)
end;
writeln;
writeln ('Произведение цифр,которые расположены на нечётных позициях, = ',p);
end.
Проимер:
Введите число: -2323
Произведение цифр,которые расположены на нечётных позициях, = 4