На бумагу
на лист
на что то плоское и легкое
Input x-1 y-5
a^2=x:y
Print a^2
Input x-2 y-5
d^2=x:y
Print d^2
Может быть неправильно!
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
1) D
2)
<span>полная форма if (условие) then ...else ...;
</span><span>краткая форма if (условие) then ...;
</span><span>3)
a) </span><span>if x>=y then
begin
x:=0;
y:=0;
end;
else
write(z);
b)
1.5
</span>
Воно може займати будь яке положення