1. Информатика
  2. Найти количество кратных

Найти количество кратных 13 чисел от 1 до 1000

proulechka proulechka    2   25.05.2019 01:20    1

Ответы
barbi18 barbi18  01.10.2020 11:09
Var S, I: integer;
Begin
     FOR i := 0 to 1000 do
         if (i mod 13 = 0) then s := s + 1;
     writeln(s);
End.

Вот так)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikita11z nikita11z  17.07.2019 23:50
Для хранения растрового изображения размером 209×209 пикселей отвели 4 кб памяти. каково максимально возможное число цветов в палитре изображения?...
Ариэль1606 Ариэль1606  02.07.2019 14:20
Для чего бухгалтерам нужен компьютер? !...
Зина11111111 Зина11111111  10.12.2020 04:09
Укажіте 2 инструмента, с которых может быть создано данное изображение. 1.2.Критерий оцениванияДескрипторБала 1​...
милаш06 милаш06  31.07.2019 05:30
Чтобы переместиться на 1 ячейку вниз нужно нажать...
Yarina0311 Yarina0311  31.07.2019 05:30
Вкаком направлении от монитора на электронно лучевой трубке вредные излучения...
ritatymchak ritatymchak  31.07.2019 05:30
Паскаль : напишите программу формуле : l=1,51cosx^2+2x^3...
Dangssa Dangssa  31.07.2019 05:30
П.с да, это информатика, а не тема логики укажите предложения, которые являются высказываниями: 1) кто в классе дежурный? 2) москва – столица россии. 3) дважды два –...
Iaro Iaro  31.07.2019 05:30
#правильная запись формулы, вычисляющей произведение содержимого ячеек а1 и в1 в мs excel -=а1*в1; -с1=а1*в1; -=сумм(а1*в1); -а1*в1. #применить субд рекомендуется в...
zdavatelzno zdavatelzno  31.07.2019 05:30
Решить в паскаль составьте программу для вычисления суммы e^1+e^2+e^3+...
nikitakozlav8niks nikitakozlav8niks  31.07.2019 05:20
Напишите программы, которые вводят с клавиатуры два числа а и в и выводят на экран: 1) максимальное из чисел а и в; 2) минимальное из числе а и в; 3) числа а и в с указанием,...

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