Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
<em><u>Получим значение 20.</u></em>
Формула вычисляет максимум из четырех значений: 4х[A1], [A1]x[B3], 9, 14.
Тут запись в квадратных скобках означает "содержимое ячейки с указанным адресом".
Максимум из 4х5, 5х4, 9, 14 - это максимум из чисел 20, 20, 9, 14 и он равен 20.
1
2
3
4
5
6
7
8
9
помоему натуральные числа и их 9 а так несовсем знаю)