var a,t: real;
begin
write('vvedite kolichestvo chasov, kotoroe spit chelovek');
readln(a);
t:=(a*100)/24;
write('chelovek spit ',t:2:0,'%');
readln;
end.
Var a,b,c:integer;
k:boolean;
begin
readln(a);
readln(b);
readln(c);
k:=false;
if (a mod 3=0) and (a mod 10=5) then
begin;
writeln(a);
k:=true;
end;
if (b mod 3=0) and (b mod 10=5) then
begin;
writeln(b);
k:=true;
end;
if (c mod 3=0) and (c mod 10=5) then
begin;
k:=true;
writeln(c);
end;
if k=false then writeln('НЕТ');
<span>end.</span>
Ответ:
г)
Объяснение:
это DVI, больше не знаю, что сказать
X*x*x или
<span>sqr(x)*x, sqr - возведение в квадрат</span>
Можно если ты им владеешь как то странно будет если на егэ придёт человек и сядет на паскаль абц и вообще вроде бы если ты будешь здавать инфу ты будешь здавать не програмы а физику