var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.
{2 способ}
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.
F =468,75 Кбайт =468,75 *2^13 бит
D = 16 бит =2^4 бит - глубина звука
H =48 КГц =48*1000= 3*2^4 *1000 Гц - частота звука (1/c)
t=F : (D *H)
t =468,75 *2^13 : (2^4 *3 *2^4 *1000) = 468,75 *2^5 :3 :1000=
=156,25*32 :1000 = 5 000 : 1 000=5 (c)
ответ: t =5 секунд
Выделить нужные ячейки.
Сделать форматирование (по ширине, высоте, межстрочному интервалу и т.п.).
Progtam asd;
Uses crt;
Var a,n,s:integer;
begin
readln (n);
for a:=3 to n do
s:=a+s;
end.