var n,m,i,k:integer; c:char;
begin
// 1
write('n, m: ');
readln(n,m);
k:=0;
for i:=n to m do
begin
write(i,' - ',chr(i),' ');
k:=k+1;
if k mod 3=0 then writeln;
end;
// 2
write('n: ');
readln(n);
writeln(n,' ',chr(n));
// 3
write('c: ');
readln(c);
writeln(c,' ',ord(c));
end.
Пример:
n, m: 40 60
40 - ( 41 - ) 42 - *
43 - + 44 - , 45 - -
46 - . 47 - / 48 - 0
49 - 1 50 - 2 51 - 3
52 - 4 53 - 5 54 - 6
55 - 7 56 - 8 57 - 9
58 - : 59 - ; 60 - <
n: 100
100 d
c: {
{ 123
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
массив_чисел: РЯД 100 ИЗ ЦЕЛ;
сч, мин, ном: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив_чисел) - 1 ВЫП
массив_чисел[сч] := - УЗК(ВШИРЦЕЛ(Матем.случ() * 1000))
КОН;
мин := массив_чисел[0]; ном := 0;
ОТ сч := 1 ДО РАЗМЕР(массив_чисел) - 1 ВЫП
ЕСЛИ массив_чисел[сч] < мин ТО
мин := массив_чисел[сч]; ном := сч
КОН
КОН
(* мин - минимальное значение, ном - его номер *)
КОН Задание.
Обрати внимание на то, что считается фактическое минимальное значение, а не минимальный модуль.
★★★★★★★★★★★★★★★★★★★★★★★
Цикл із передумовою — це цикл, у якому тіло циклу виконується тільки у разі виконання умови, заданої перед тілом циклу. Якщо умова стає невірною, то робота циклу припиняється і керування передається оператору, наступному за оператором циклу.
★★★★★★★★★★★★★★★★★★★★★★★