Предмет: Информатика,
автор: Master3097
Переведите пожалуйста с С++ на 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;
}
Ответы
Автор ответа:
0
В сущности как-то так:
procedure func;
var a,b: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
writeln(a*b);
end;
begin
func;
end.
Master3097:
Спасибо
Похожие вопросы
Предмет: Українська мова,
автор: katyauzhva
Предмет: Другие предметы,
автор: Ольга360
Предмет: Русский язык,
автор: piratdaniel
Предмет: Математика,
автор: gangster236
Предмет: Математика,
автор: задание5