
Dagdadred
5 год назад
Переведите пожалуйста с С++ на 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;}
ОТВЕТЫ

Ilya
Oct 24, 2020
В сущности как-то так:
procedure func;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln(a*b);
end;
begin
func;
end.
793
Смежные вопросы: