помогите в паскаль составить программы решения задач
Answers & Comments
Ленгит 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); 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; c:= n div 60; m:= n mod 60; writeln ('На часах ' , c ,' часов ' , m , ' минут'); end else writeln ('Введите верные данные'); readln; End.
Answers & Comments
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);
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;
c:= n div 60;
m:= n mod 60;
writeln ('На часах ' , c ,' часов ' , m , ' минут');
end
else writeln ('Введите верные данные');
readln;
End.