Во 2 просто надо дописать 1 строчку
var a,b,c,m,s:integer;
begin
read(a);
b:=a mod 10;
c:=a div 10;
m:=c mod 10;
c:=c div 10;
s:=b+c+m;
write(s);
end.
3) var a:integer;
begin
read(a);
if (a mod 5=0) and (a mod 10 <>0) and (a mod 7=0) then
write('YES') else write('NO');
end.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) приведена во вложении
if a mod 2= 0 then - это ты проверяешь на четность
n:=0;
если условие соблюдается n:=n+1- то n:=0+1
1)128×64×8=65536 бита
2)65536÷8=8192 байт
3)8192÷1024=8 килобайт
Ответ: В) 8 Килобайт