Регистрация
ultraomegaus
08.04.2022 10:13
Информатика
Есть ответ 👍

Есть сторона квадрата a=8.50 как найти периметр программа pascal abc

107
428
Посмотреть ответы 2

Ответы на вопрос:

pomogitejaslomalsya
pomogitejaslomalsya
4,4(56 оценок)
Var  a,p: real; begin writeln('введите сторону квадрата'); readln(a); p: =a*a*a*a; writeln('периметр квадрата равен',p); end.
Nutmi
Nutmi
4,8(52 оценок)

решение на pascal. могут быть небольшие недочёты =)

 

program avtormaltsevady;

var

s, t, v, z : integer;

begin

s: =109;

writeln ('vvedite vremya');

readln (t);

writeln ('vvedite scorost');

readln (v);

z: =v*t;

if z> 0 then

while z< s do

z: =z-s;

end;

else

while (z> 0) and (z< s)

z: =z+s;

end;

writeln ('vasya ostanivitsya na otmetke - ', z);

end.

Популярно: Информатика