var a,b,c,m,n:integer;
BEGIN
write('Длина шкафа = ');
readln(c);
write('Ширина шкафа = ');
readln(a);
write('Высота шкафа = ');
readln(b);
write('Длина двери = ');
readln(m);
write('Ширина двери = ');
readln(n);
if ((a*b<=m*n) and (((a<=m) and (b<=n)) or ((a<=n) and (b<=m)))) or
((a*c<=m*n) and (((a<=m) and (c<=n)) or ((a<=n) and (c<=m)))) or
((c*b<=m*n) and (((c<=m) and (b<=n)) or ((c<=n) and (b<=m)))) then
writeln('ДА') else
writeln('НЕТ');
end.
Решение
Человек лучше понимает и запоминает ту
информацию, которая представлена наглядно - с помощью рисунков,
фотографий, схем, диаграмм. Эту информацию легче анализировать.
Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.