Var
n,d1,d10,d100:integer;
begin
Write('Введите натуральное трехзначное число: '); Read(n);
d1:=n mod 10; d100:=n div 100;
d10:=(n div 10) mod 10;
if (d1 mod 2 = 0) or (d10 mod 2=0) or (d100 mod 2=0)
then Writeln('Есть четная цифра')
else Writeln('Нет четных цифр')
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Определите число: которое будет напечатано в результате выполнения программы (с помощью языка программирования Паскаль) var n,s:

aromania-by [7]

402-(10*41)=-2 ( при этом значении условие выполняться больше не будет)
значит, к значению n нужно 41 раз прибавить 3
41*3=123

0 0

4 года назад

Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 47. var : integer; begin for n:=1 to

killstation [9.3K]

В 1 пропуск вставляем n
во 2 47
и в 3 вставляем n так как квадраты высчитывается из числа n которые указаны в цикле

0 0