Во 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.
Текст - любое словесное высказывание в информатике.
1 см=576
получается 5184 точ *6912 точ
1 бит=1 точка
4479 кб-всего информационный объём
1).Из 3 бочонка перелить во 2й 3 литра.
2).Из 1 бочонка перелить 1 литр в 3й.
весы калькулятор и т.д что может помочь в сложных вычислениях