// Pascal ABC.NET
var
n1, n2, sum : integer;
begin
sum := 0;
readln(n1, n2);
sum := n1 + n2;
if sum < 5 then
writeln('Привет');
if sum > 5 then
writeln('Пока');
end.
Var
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120
Правило шифрования Цезаря со сдвигом в 1 позицию
<span>монитор, процессор, клавиатура, книга.</span>
Лишнее слово "ймзвя" - это книга
Ответ:
А:=90
Объяснение:
a:=100 b:=0
Далее проверяется условие: равно ли b 5? Та как 0 не равен 5, идем по стрелке нет, то есть b:=b + 1 -> b:= 1; a:= a - 2 -> a = 98
a:=98 b:=1
возвращаемся опят к проверке условия 1 не равен 5, идем по стрелке "нет" и т.д.
Останавливаемся когда b будет равно 5
a:=96 b:=2
a:=94 b:= 3
a:=92 b:=4
a:=90 b:=5