Регистрация
Войти
Стать экспертом Правила
Информатика

Переведите пожалуйста с С++ на Pascal#include using namespace std;void func (){float a,b;cout << "a="; cin >> a;cout << "b=";cin >> b;cout << a*b << endl;}int main (){func ();system ("PAUSE");return 0;}

ОТВЕТЫ

В сущности как-то так:

procedure func;

 var a,b: real;

begin

 write('a=');

 readln(a);

 write('b=');

 readln(b);

 writeln(a*b);

end;

begin

 func;

end.

793
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам