Перевести на алг. яз.Program qwerty; var a,b:integer; c:real; begin read (a,b);

Перевести на алг. яз.
Program qwerty;
var a,b:integer; c:real;
begin
read (a,b);
c:=a*b;
if clt;0 then c:=c*8
else c:=c*1.5;
write ;
end.

Задать свой вопрос
1 ответ

алг qwerty

нач

цел a, b

вещ c

ввод a, b

c:= a*b

если clt;0 то c:=c*8

по другому c:=c*1.5

все

вывод c

кон

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт