Составить блок - схему: найти s и p равнобедренной трапеции с основаниями a и b (a b) и острым углом - id577607420210508 от kimvlad1712 08.05.2021 03:55

Question

Информатика: Составить блок - схему: найти s и p равнобедренной трапеции с основаниями a и b (a b) и острым углом alpha (угол дан в радианах)

kimvlad1712 · Accepted Answer

1.

program simple;

var a,b:integer;

begin

writeln('daite a, b); readln(a,b);

writeln('x = ', b/a); readln;

end;

2.

program day;

var h,hours,minutes:longint;

begin

writeln('daite secundi'); readln(h);

hour:= h div 3600; minutes:=h mod 36000;

if (minutes > 60) or (minutes=60) then

begin

hour:=hour+1;

minutes:=minutes-60;

end;

writeln('It is 'hours' hours 'minutes' minutes');

readln;

end;

3.

program summaChisla;

var s:string; i,sum: longint; c,cod:integer;

begin

writeln('daite nomer); readln(s);

for i:=1 to length(s) do

begin

val(s[i],c,cod); sum:=sum+c;

end;

writeln('summa :',sum); readln;

end;

Составить блок - схему: найти s и p равнобедренной трапеции с основаниями a и b (a> b) и острым углом alpha (угол дан в радианах)