<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>№1</em>
begin
var (a,b):=ReadInteger2('Введите a,b:');
if a.IsEven then a-=1;
Range(a,b,-2).Println
end.
<em>Пример</em>
Введите a,b: 18 4
17 15 13 11 9 7 5
<em>№2</em>
begin
var (a,b):=ReadInteger2('Введите a,b:');
Range(b,a).Aggregate(BigInteger(1),(i,j)->i*j).Println
end.
<em>Пример</em>
Введите a,b: 50 7
42241796113490802838350844675089956728302279956889600000000000
<em>№3</em>
begin
var n:=ReadInteger('n=');
for var i:=1 to n do
(1.To(i)).Println('')
end.
<em>Пример</em>
n= 7
1
12
123
1234
12345
123456
1234567
Диапазон значений типа byte - от 0 до 255.
Верный ответ: 1)255
Пример заполненной таблицы - в прилагаемом файле.
Формула для расчета (на примере ячейки D4):
=ЕСЛИ(C4<=$C$2;C4*$A$2;$C$2*$A$2+(C4-$C$2)*$B$2)
Ответ:
2,0,334
Объяснение:
Задаем две пользовательские функции в 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
В ячейках рабочего листа вставляем формулы.
Для вычисления числа символов "a":
=chrcount(newstr("abab";333);"a")
Для вычисления числа символов "b":
=chrcount(newstr("abab";333);"b")
Для вычисления числа символов "c":
=chrcount(newstr("abab";333);"c")
Получаем следующий результат:
a,b,c
2,0,334
Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>