По шаблону ? означает ровно один любой символ, а * сколько угодно любых символов либо 0 сим. Так что ответ "e"
Ответ:
Такая надпись будет на мониторе, если нет видеосигнала от компьютера.
Объяснение:
Скорее всего, системный блок не запитан (шнур не подключен к розетке 220 вольт, плохо вставлен в системник, тумблер блока питания сзади системника выключен, тумблер на удлинителе выключен).
Либо что то не так с системником (сломался, настройки слетели, итд) или с видео кабелем (не подсоединён, кот погрыз, итд).
var a:Integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
Пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');