Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
Если значение y не менялось и равно 29, то первоначальное значение х=-23
x:=x+y, x=-23+29=6
Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17
Тут надо было что-то написать, т.к. пустой ответ система не принимает)
Ответ:
1800 байт
Объяснение:
45х20=900 точек
256 бит, это 2 байта
900 точек по 2 байта 1800 байт