Var n:integer; c:char;
begin
write('n (от 1 до 26):');
readln(n);
for c:='z' downto chr(ord('z')-n+1) do write(c:2);
end.
Пример:
<span>n (от 1 до 26): 5
z y x w v</span>
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
А) Объект: человек;
Величина: цвет волос;
Значение: ражий.
б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.
в) Объект: чашка;
Величина: материал;
Значение: фарфор.
г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.
Правой кнопкой мыши нажать-создать-документ
сохранить- это в этом документе, а сохранить как- это создается новый файл, можно выбрать путь, где он будет храниться, его расширение и название
2 раза коикнуть по файлу или правой кнопкой кнопкой мыши по ярлыку и нажать открыть