Ответ:
2,0,334
Объяснение:
Описываем две пользовательские функции в Excel VBA:
Function newstr(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "a", "ab")
str = Replace(str, "bb", "c")
Next
newstr = str
End Function
Function chrcount(str1 As String, str2 As String) As Integer
Dim str() As String
str = Split(str1, str2)
chrcount = UBound(str, 1)
End Function
С рабочего листа вызываем функцию:
= chrcount(newstr("abab"; 333); "a")&","&chrcount(newstr("abab"; 333); "b")&","&chrcount(newstr("abab"; 333); "c")
Получаем результат:
2,0,334
Var a,b,c:integer;
Begin
Readln(a,b,c);
If (a+b>c) and (a+c>b) and (b+c>a) then
Write('yes') Else
write('no').
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
Я еще не студент!!!Понимаете мне еще 12 то нет!!!А баллы заработать хочется.
1.Какие устройства ввода и вывода вы знаете?
2.Является ли камера устройством ввода?
3.Какие программы редактирования документов вы знаете?
4.Клавиатура считается устройством ввода?
5.Paint может редактировать документы?
6.World,Piant,Windows- что из них может редактировать?