Mid(<em>строка, номер начального символа[, количество возвращаемых символов]</em>)
Excel VBA
Program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
Достовреная:2х2=4
Недостоверная 6 2х2=5
Ценная: Цены на нефть будут подниматься в ближайшие полгода. .
Малоценная: В номере газеты "Правда" от 3 февраял 1957 года не было ни одного рекламного объявления.
Своевременная: Начинается дождь.
<span>Несвоевременная: Вчера в Икее была распродажа</span>
Будет 144
Решение:
2х1 1
2х2 2
2х3 1+2=3
2х4 2+3=5
2х5 3+5=8
2х6 5+8=13
2х7 8+13=21
2х8 13+21=34
2х9 21+34=55
2х10 34+55=89
2х11 55+89=144
Если помог поддержите и нажмите спасибо!)