profile
Опубликовано 5 лет назад по предмету Информатика от Pop3

1) Вывести на экран все трехзначные числа кратные 50
2) Найти сумму нечетных чисел от 100 до 150
На паскале

  1. Ответ
    Ответ дан JustPeople
    VAR  
       k: LongInt;
    BEGIN  
       k := 50; 
       While (k < 1000) do begin  
          k := k + 50; Write(k, ' ');
       End;
    END.

    VAR  
       sum, k: LongInt;
    BEGIN  
       k := 101; sum := 0;  
       While (k < 150) do begin      
          sum := sum + k;  
          k := k + 2;  
       End; 

       Writeln(sum);
    END.
  2. Ответ
    Ответ дан Бублик007
    Var   
    k: LongInt;
    Begin
    k := 50; 
    While (k < 1000) do begin  
    k := k + 50; Write(k, ' ');
    End;
    End.

    Var   
    sum, k: LongInt;
    Begin  
    k := 101; sum := 0;   
    While (k < 150) do begin      
    sum := sum + k;  
    k := k + 2;   
    End; 
    Writeln(sum);
    End.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.