Переведите пожалуйста с С++ на 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;
}
#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;
}
More Questions From This User See All
Answers & Comments
В сущности как-то так:
procedure func;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln(a*b);
end;
begin
func;
end.