Запись оставлена clara 21.02.2017 в 20:20 (изменение записи, оставленной OCTAGRAM | показать различия)
запустить | скачать | различия | новая запись
- Program P1;
- var a,b,s:real;
- function F(a1,b1:real):real;
- var s1:real;
- begin
- s1:=a1*b1;
- F:=s1;
- end;
- begin
- writeln('Dati valori lui a si b:');
- write('a=')readln(a);
- write('b=')readln(b);
- s:=F(a,b);
- writeln('s=',s:8:4);
- readln;
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.