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.

0 0

4 года назад

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

Дан одномерный массив целых чисел М(12), определить количество и сумму нечетных чисел в массиве. Вывести результат и массив М.Ср

Норайр Акопович

Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.

0 0

4 года назад

Расположите номера запросов в порядке убывания количества страниц, которые найдет поисковый сервер по каждому запросу. А) Ромашк

вероника либега

Вгаб.................................

0 0

4 года назад

Выберите информационные процессы(действия с информацией).a)разговор по телефонуb)посадка дереваc)кассета любимой музыкальной гру

Elena nurdinova

С д е ф г т.к это все мы обрабатываем и делаем какое-либо действие

0 0

4 года назад