Витя - х
Костя - y
3х = y
x = y - 18
находим y и х:
y=3y-54
<u>y=27</u>, значит
<u>x=27-18=9</u>
<u>Ответ: Костя решил 27 задач, Витя решил 9 задач</u>
Program n1;
var a,i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 2=0 then sum:=sum+a;
end;
writeln(sum);
end.
Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub
Ответ:
ftp://FedAndr. edu/prog/about.pdf
Объяснение:
адресация в Интернете:
протокол :// сервер / каталог (каталоги) / файл