Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):
var
x, y: real;
begin
writeln('*********************');
writeln('* X * Y *');
writeln('*********************');
for x := 1 to 10 do
begin
if x>=0 then y:=5*x else y:=4*x+2;
writeln('* 'x,' * ',y,' *');
end;
writeln('*********************');
end.
Но лучше сделать ввод значений х с клавиатуры:
var
y: real; i:integer;
mas: array[1..10] of real;
begin
for i := 1 to 10 do
begin
write ('Введите ',i,'-е значение ');
readln (mas[i]);
end;
writeln('*********************');
writeln('* X * Y *');
writeln('*********************');
for i := 1 to 10 do
begin
if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
writeln('* ',mas[i],' * ',y,' *');
end;
writeln('*********************');
end.
Маловероятно, что две единички на 3-й и 4-й позициях обе значат А (мало слов, где есть две А подряд). Значит, это либо буква Й (11), либо АЛ (1-13)
. . Й . . . или . . АЛ. . .
Две первые цифры (26) могут значить либо БЕ, либо Ш:
БЕЙ . . . или БЕАЛ . . или ШЙ . . . или ШАЛ . . .
Второй и третий варианты отбрасываем, а БЕЙ... и ШАЛ... пока оставим.
После БЕЙ идут цифры 3126. Их можно расшифровать как:
3-1-2-6 ВАБЕ
31-2-6 ЭБЕ
3-1-26 ВАШ
3-12-6 ВКЕ
31-26 ЭШ
Приставим БЕЙ спереди к каждому варианту:
БЕЙВАБЕ, БЕЙЭБЕ, БЕЙВАШ, БЕЙВКЕ, БЕЙЭШ - не имеют смысла
Рассмотрим вариант ШАЛ . . . Цифры 126 после него могут значить:
1-2-6 АБЕ
12-6 КЕ
1-26 АШ
Присавим эти варианты к ШАЛ и получим одно осмысленное слово ШАЛАШ, имя существительное, как и требуестя в условии.
ОТвет: ШАЛАШ
Мне тоже надо дайте ответ надо