/////////////////////////////////////
Cумма = Стоимость одного часа * Количество часов + Стоимость расходных материалов
Итого = ∑Сумма
т.е. для суммы: F2 = $C2*$D2+$E2 (и растягиваешь на весь столбец)
Итого: СУММ(G2:G6)
В 18 задании у натурального логарифма пропущен аргумент.
Я поставил по умолчанию 1.f, но, если я не прав, измените его.
У каждого задания свой файл(matematika_X.cpp, где X - номер задания).
Здесь 5 заданий. Остальные задания отправлю в личные сообщения
1.
Var S : String;
i : Byte;
Begin
Readln(S);
For i:=Length(S) downto 1 do Write(S[i]);
Writeln;
end.
2.
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Var S : String;
Begin
Readln(S);
Writeln(StRevers(S));
end.
const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.<span>
</span>