помогите ,люди добрые ,решить задания пожалуйста в паскаль (((((((((( 1.Сформировать последовательность заглавных букв латинского алфавита и вывести их на экран в том же порядке, поставив после каждой из них ее порядковый номер: А1 Б2 В3 Г4 ... Я33.
2. Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие числа, кроме 2, 3, 5.
|
|
|
|
Anka1101,
1) латинские буквы: A B C D E F G... Мне кажется самое простое:
var
ch:char;
i: integer;
begin
i:=0;
for ch:='A' to 'Z' do begin
i:=i+1;
write( ch, i, ' ' );
end;
end.
2) Тут тоже все просто, поэтому намекну, если непонятно спросите
- вводим N с клавиатуры
- будем считать count = 0 пока не записано ни одно число
- начинаем искать числа, которые нужно вывести: (я так понимаю делятся хотя бы на одно число из 2,3,5)
i:=2 (будут натуральные числа по порядку, с 2 тк 1 не подходит)
повторяем
если (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) тогда
выводим i и записываем что одно число мы вывели те count:=count+1;
берем следующее число i:=i+1
до тех пор пока count = N
вроде все)
если нужно чтобы числа делились и на 2 и на 3 и на 5 одновременно, то нужно проверять начиная с 30, и вместо or использовать and
|
|
|
|
