1. Информатика
  2. Напишите программу которая находит

Напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1.
pascalabc.net

gleb21717 gleb21717    2   21.01.2020 22:04    2

Ответы
stecykuliamail stecykuliamail  11.10.2020 02:19

var n, a: integer;

begin

   readln(n);

   for a:=1 to n * 3 do if a mod 3 = 1 then writeln(a)

end.

ПОКАЗАТЬ ОТВЕТЫ
taush taush  11.10.2020 02:19

===== PascalABC.NET =====

begin

 SeqGen(ReadInteger, 1, p -> p + 3).Print

end.


Напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 раве
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
гиений1509 гиений1509  16.06.2019 10:00
Паскаль авс.net составить программу с записью дата. программа должна обеспечивать простейшие функции для работы с данными : увеличение/уменьшение на 1 день, ввод значений , вывод значений....
Eldhei Eldhei  16.06.2019 10:00
Каждые выходные к васе приходят друзья, чтобы поиграть в карты. для полноценной игры число карт в коллоде должно быть кратное количеству игроков. у васи есть колода из n карт. он решил,...
ivan497 ivan497  27.07.2019 10:40
Написать алгоритм получения 15 литров с переливанием, имея 7л и 11л кувшины...
akow08 akow08  30.09.2019 19:40
Текст рассказа набран на компьютере. информационный объём получившегося файла 600 кбайт. текст занимает 60 страниц, на каждой странице одинаковое количество строк, в каждой строке...
Afakado Afakado  30.09.2019 19:40
Оцените объем моноаудиофайла (в килобайтах) длительностью звучания 71 сек. при частоте дискретизации 38.79 кгц и разрешении 16 бит....
wq5335wq wq5335wq  30.09.2019 19:40
Объем звукового файла 15.81 мбайт, разрядность звуковой платы - 16. какова длительность звучания этого моноаудиофайла (в минутах), записанного с частотой дискретизации 40.78 кгц?...
mila17111 mila17111  30.09.2019 19:40
Для хранения области экрана монитора размером 1024 на 512 точек выделено 128 кбайт оперативной памяти. какое максимальное число цветов допустимо использовать для раскраски точек?...
karolinetynfag karolinetynfag  30.09.2019 19:40
Вчем ошибка? язык - python, пишет: if go == 1: синтаксичекая ошибка: недопустимый синтаксис. import oc import sys import psutil # coding : utf-8 print( your program is enabled ) name...
kareta2004 kareta2004  23.05.2019 23:10
Составить алгоритм что бы действие повторялось 5 раз...
raniskarimov2 raniskarimov2  23.05.2019 23:10
Какие символы могут входить в двоичный алфавит?...

Популярные вопросы