Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
помогите составить программу
помогите ,люди добрые ,решить задания пожалуйста в паскаль (((((((((( 1.Сформировать последовательность заглавных букв латинского алфавита и вывести их на экран в том же порядке, поставив после каждой из них ее порядковый номер: А1 Б2 В3 Г4 ... Я33.
2. Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие числа, кроме 2, 3, 5.
1 | Автор: Anka1101 | 2013-01-31, 16:05   |  Репутация: [ + 0 ]
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
2 | Автор: МарьЯ | 2013-01-31, 21:08   |  Репутация: [ + 2 ]
  • Страница 1 из 1
  • 1
Поиск: