Sub Z()
<span>Dim s As String
Dim i As Integer
Dim n As Integer
For i = 1 To 5
</span>s = InputBox("Введите строку")<span>
If s = "." Or s = "," Or s = ";" Or s = ":" Then n = n + 1
Next i
MsgBox ("Знаков препинания: " & n)
End Sub
</span>
var r,kb,sb,res:real;
begin
read(r);{rasstoyanie}
read(kb);{kolichestvo benzina na 100 km}
read(sb);{sena odnogo litra benzina}
res:=2*r*kb/100*sb;
writeln(res:6:2);
end.
=СРЗНАЧЕСЛИ(C2:C6;"м";G2:G6)-(СРЗНАЧЕСЛИ(C2:C6;"ж";G2:G6))
Ответ:
Графики в порядке от 1 до 4