Ствооіть новий проект для обчисоення періоду обертання P та частоти обертання C за введеним користувачем часом обобертів Т на кількість обертів N. число N ціле числа Т,С,Р дробові. час -10
кількість обертів-1
підказка: P=T:N, C=N:T

Программа

 {

покажись;

в_точку ( -125 ,-100 );

опусти_перо;

вперед ( 100 );

вправо ( 90 );

вперед ( 50 );

вправо ( 90 );

вперед ( 100 );

подними_перо;

в_точку ( -55 ,-50 );

опусти_перо;

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

влево ( 90 );

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

подними_перо;

 в_точку ( -10 ,-100 );

 опусти_перо;

 вправо ( 105 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 подними_перо;

 в_точку ( 35 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 150 );

 вперед ( 54 );

 вправо ( 150 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 80 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 180 );

 вперед ( 25 );

 вправо ( 90 );

 вперед ( 27 );

 влево ( 90 );

 вперед ( 25 );

 влево ( 180 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 125 ,-100 );

 опусти_перо;

 вправо ( 195 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 влево ( 90 );

 подними_перо;

 в_точку ( 125 ,-75 );

 опусти_перо;

 вперед ( 27 );

 подними_перо;

 в_точку ( 175 ,-100 );

 }

program калькулятор;

var

a,b,c,d,e,f,q: real;

begin

writeln ('введите число a: ');

readln(a);

writeln ('введите число b: ');

readln(b);

writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');

readln(q);

if (q=1) then begin

d: =a+b;

writeln('ваш результат: ',d);

end;

if (q=2) then begin

f: =a-b;

writeln('ваш результат: ',f);

end;

if (q=3) then begin

c: =a*b;

writeln('ваш результат: ',c);

end;

if (q=4) then begin

e: =a/b;

writeln('ваш результат: ',e);

end;

end.