Кек это присмешка
это как лол, что то типо очень смешно (смеюсь).
<span>Кек и лол одно и тоже
</span>
program
var a,b,c,d,n:integer;
begin
write('Введите кол-во учеников в классах:');
read(a,b,c);
writeln('Введите кол-во учебников в библиотеке:');
read(n);
d:=a+b+c;
if (n>=d) then writeln('Учебников хватит.')
else writeln('Учебников не хватит.')
end.
Var a,b,h:integer;
begin
read(a;h);
write(a^a+2*a*sqrt(a^a/4+h*h));
wrteln((h*a*a)/3);
end.
1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.
2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.