Вывести N первых заглавных букв латинского алфавита

@Данилов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Задача 2. Дано целое число N (1 ? N ? 26). Вывести N первых прописных (то есть заглавных) букв латинского алфавита.

@Leshak · 14.02.2013, 01:39

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program number13;
Uses crt;
var
 word: char;
 i, n, number: byte;
begin
clrscr;
 
repeat
 write('Enter N:');readln(n);
until n in [ 1 .. 26 ] ;
 
number:=65;
for i:=1 to n do begin
    word:=chr(number);
    inc(number);
    write(Word:3);
end;
 
readln;
end.

@БарН · 14.02.2013, 14:30

почти такая..

Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var i,n: byte;
begin
repeat
write('n='); readln(n);
until n in [1..26];
for i:=1 to n do
    write(chr(i+64),' ');
end.

и по другому:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var i,n:byte;
    c:char;
Begin
    Repeat
     write('Введите n (1<=n<=26): ');readln(n);
    Until n in [1..26];
    c:='a';
    For i:=1 to n do
     Begin
      write(c,' ');
      inc(c);
     End;
End.

@Leshak · 14.02.2013, 15:36

и по другому:

прописных (то есть заглавных).

Ну думаю что по другому уже не правильно ...

@БарН · 15.02.2013, 09:39

извините, невнимательность

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var i,n:byte;
    c:char;
Begin
    Repeat
     write('Введите n (1<=n<=26): ');readln(n);
    Until n in [1..26];
    c:='A';
    For i:=1 to n do
     Begin
      write(c,' ');
      inc(c);
     End;
End.

@Paster Fob · 15.02.2013, 11:27

Мой вариант

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  n:byte;
  c:char;
 
begin
  writeln('введите n 1<=n<=26');
  readln(n);
  for c:='A' to chr(ord('A')+n-1) do
    write(c:2);
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .	Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .
Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .	MVC фреймворк в PHP Jason-Webb 19.04.2025 Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .

Вывести N первых заглавных букв латинского алфавита

Решение

Решение

@Данилов 2 / 2 / 0 Регистрация: 25.01.2013 Сообщений: 39

	Вывести N первых заглавных букв латинского алфавита 13.02.2013, 22:07. Показов 1345. Ответов 5 Метки нет (Все метки) Задача 2. Дано целое число N (1 ? N ? 26). Вывести N первых прописных (то есть заглавных) букв латинского алфавита. 0

Опции темы