Над типом integer нельзя выполнять деление. Раз тут деление, то нужен вещественный тип, а то есть real. a и b могут быть описаны и как real и как integer.
1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
1 - истина
0 - ложь
a=1
b=0
c=1
--------------------------
1) a*b=0
2) a+b=1
3) НЕa+b=0
4) a*b+c=1
5) a+b*c=1
6) НЕa+b*c=0
7) (a+b)*(c+b)=1
8) НЕ(a+b)*(c+b)=НЕa*НЕb*(c+b)=0
9) НЕ(a*b*c)=НЕa+НЕb+НЕc=1
Ответ:
Объяснение:слово дорогой заменится на слово ветер.
Find what - найти
Replace - заменить
Я думаю что:сночало 1,потом 4, затем3, ну и наконец2