Дано целое число n (1 ≤ n ≤ 26 вывести n последних строчных (то есть маленьких) букв латинского алфавита в обратном порядке, начиная с буквы z. (код последней прописной латинской буквы z равен 122).
Плохо понел , но думою uses crt; var i,n: integer; begin writeln('введите n'); read(n); i: =122; while i > 96+n do begin write(' ',chr(i)); i: =i-1; end; end.
dima0218687
20.03.2020
Pascal 1. var a, b: real; begin write('введите стороны прямоугольника: '); read(a, b); writeln('периметр = ', 2 * a + 2 * b); end. 2. var p, b: real; begin write('введите два числа: '); read(p, b); writeln('произведение = ', p * b); writeln('разность = ', p - b); end. 3. var b: real; begin write('введите длину ребра: '); read(b); writeln('объем = ', b * b * b); end. 4. var r: real; begin write('введите радиус: '); read(r); writeln('площадь = ', 3.14 * r * r); end. 5. var a, b, c: real; begin write('введите три стороны: '); read(a, b, c); writeln('периметр = ', a + b + c); end.
elenakarpova709
20.03.2020
Var a : array [1..4, 1..4] of integer ; i,j, p,k: integer ; begin randomize; k: =1; p: =1; for i: =1 to 4 do begin for j: =1 to 4 do begin a[i,j]: =random (100); if a[i,j]> a[k,p] then begin k: =i; p: =j; end; write(a[i,j]: 3); end; writeln; end; writeln ('максимальный элемент матрицы = ', a[k,p]); write ('он находится в строке №' , k); writeln (' и в столбце №' , p); writeln('меняем максимальный элемент матрицы и первый элемент первой строки: '); i: =a[k,p]; a[k,p]: =a[1,1]; a[1,1]: =i; for i: =1 to 4 do begin for j: =1 to 4 do write(a[i,j]: 3); writeln; end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дано целое число n (1 ≤ n ≤ 26 вывести n последних строчных (то есть маленьких) букв латинского алфавита в обратном порядке, начиная с буквы z. (код последней прописной латинской буквы z равен 122).