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.
В)наверно
кассир и сам справится
а дворник зачем?
Для начала найдем вес одного символа.
6*1024*8=49152 бит.Вес одного символа равняется 49152/6144=8 битN=2^i, где i - вес одного символа, N - количество символов в алфавите.N=2^8=256 символов
Предмет для вывода документа на бумагу называется Принтером
Program kod; Var q,w,e,r,t,y,u,i,x:integer; Begin write(q,w,e,r,t,y,u,i); if q:=1 then x+(1*2*2*2*2*2*2*2); if q:=0 then x+0; i
Mais
:= означает "присвоить значение".
После if пишется логическое выражение, например, х>0 или х=0 (но не х:=).
После служебного слово then должен следовать оператор присваивания (:=), скорее всего х:=x+(1*2*2*2*2*2*2*2) и т.д.