program p2;
Uses Crt;
Var
s1,s2,s,a,b,a1,b1:real;
Begin
ClrScr;
writeln('Введите высоту стены: ');
readln(a);
writeln('Введите ширину стены: ');
readln(b);
writeln('Введите высоту окна: ');
readln(a1);
writeln('Введите ширину окна ');
readln(b1);
if (a>0) and (b>0) and (a1>0) and (b1>0) then
begin
s1:=a*b;
s2:=a1*b1;
if s1>s2 then begin
s:=(s1-s2)*0.1;
writeln ('Нужно ' ,s,' литров краски для покраски стены')
end
else writeln('Окно не может быть больше стены');
end
else writeln ('Введите верные данные');
readln;
End.
program p3;
Uses Crt;
Var
n,k,p:integer;
Begin
ClrScr;
writeln('Введите количество школьников: ');
readln(n);
writeln('Введите количество яблок: ');
readln(k);
if (n>0) and (k>0) then
begin
p:= (k div n);
writeln( 'Каждый получит по ' , p ,' яблок');
end
else writeln ('Введите верные данные');
readln;
End.
program p4;
Uses Crt;
Var
v,t,h,n:integer;
Begin
ClrScr;
writeln('Введите скорость: ');
readln(v);
writeln('Введите часы: ');
readln(t);
n:=0;
if (v>0) and (t>0) then
begin
h:=v*t;
if h>=109 then
begin
repeat
n:=n+1;
h:=h-109;
until(h<109);<br>end;
write ('Мотоциклист будет на ' , h, ' киллометре');
end
else writeln ('Введите верные данные');
readln;
End.
program p5;
Uses Crt;
Var
n,c,m,k:integer;
Begin
ClrScr;
writeln('Введите количество прошедших минут: ');
readln(n);
if (n>0) then
begin
if n>=1440 then
repeat
n:=n-1440;
k:=k+1;
until n<1440;<br>c:= n div 60;
m:= n mod 60;
writeln ('На часах ' , c ,' часов ' , m , ' минут');
end
else writeln ('Введите верные данные');
readln;
End.