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

Pascal. Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем.

  1. Ответ
    Ответ дан Wayer
    var summ: integer;
    begin  for var i:=30 to 100 do  begin    if (i mod 3) = 0 then summ := summ + i;  end;  writeLn('сумма = ', summ);end.
    1. Ответ
      Ответ дан Wayer
      переносы строки сбились правда)
    2. Ответ
      Ответ дан Wayer
      и прошу прощения, у нас ведь строго больше 30, значит строка for var i:=30 to 100 do begin заменяется на for var i:=31 to 100 do begin
Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

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

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

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

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

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

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

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

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

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

Информация

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