procedure pr_max(a,b,c:integer; var max:integer);
begin
if a>b then max:=a else max:=b;
if c>max then max:=c;
end;
var m:integer;
begin
pr_max(15,47,24,m);
writeln(m);
end.
Результат:
47
Обе программы входят в пакет Microsoft Office. У них очень похож пользовательский интерфейс. В обоих программах можно писать и использовать макросы. В качестве внутреннего языка используется VBA - Visaul Basic for Applications. Фрагменты из Word и Excel можно просто перетаскивать мышкой между этими приложениями. Двойной щелчок по таблице Excel, вставленной в документ Word, вызывает Excel, позводяя в нем работать с такой таблицей. Аналогично обстоит дело с выховом Word из Excel.
Разница состоит в том, что все же Word - это текстовый процессор, предназначенный для работы с текстовыми документами, а Excel - средство для работы с электронными таблицами.
1)
Program n1;
var a,b,c: real;
sum: integer;
begin
readln(a,b,c);
sum:=trunc(a+b+c);
writeln(sum);
end.
2)
Program n2;
var a,n: integer;
x: real;
begin
readln(a,n);
x:=frac(a/n);
writeln(x)
end.
3)
Program n3;
var a,b,c,d: real;
sum: integer;
begin
readln(a,b,c,d);
sum:=round(a+b+c+d);
writeln(sum);
end.
Var x,y,b:real;
begin
writeln ('Введи 2 вещественных числа');
readln (x,y);
b:=x;
x:=y;
y:=b;
writeln (x,y);
realdn;
end.
А) <span>0,00375*10^3 = 3,75
б) </span><span>1,234*10^(-2) = 0,01234
в) </span><span>5,737*10^(-2) = 0,05737</span>