650*3=1950 мб
16-14.9=1.1 гб свободного места
1950-1100=850 мб
Var b,t,w:real; v:integer;
begin
write('рабочая ширина захвата агрегата, м = ');
readln(b);
write('коэффициент использования времени смены = ');
readln(t);
writeln('Производительность машинно-тракторного агрегата:');
for v:=3 to 12 do
writeln(v:3,' ',0.1*b*v*t:4:1);
end.
Пример:
рабочая ширина захвата агрегата, м = 5
коэффициент использования времени смены = 0.8
Производительность машинно-тракторного агрегата:
3 1.2
4 1.6
5 2.0
6 2.4
7 2.8
8 3.2
9 3.6
10 4.0
11 4.4
12 4.8
Var i,n,l: integer;beginfor i:=108 to 999 do beginif (i mod 9 =0)then writeln(i+'') end;end.
Паскаль.
var s1,s2:integer;begin writeln('Введите площадь круга');readln(s1); writeln('Введите площадь квадрата');readln(s2); if s1>=s2 then writeln('Поместится') else writeln('Не поместится')end.
Нахождение максимума из трех чисел