olyaartemenko

27.02.2023

Подсчитать количество чисел кратных 8 в промежутке от n до 100

Информатика

Ответить

Ответы

Rinatum1978

27.02.2023

var

n,i,k:integer;

begin

Write('n=');

Readln(n);

k:=0;

for i:=n to 100 do

if i mod 8 = 0 then Inc(k);

Writeln('k=',k);

end.

Надеюсь )

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Подсчитать количество чисел кратных 8 в промежутке от n до 100

▲

Подсчитать количество чисел кратных 8 в промежутке от n до 100

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

PROGRAM Z1; Образец VAR A, H: INTEGER; S: REAL; BEGIN WRITELN (‘ВВЕДИ ОСНОВАНИЕ ТРЕУГОЛЬНИКА’); READLN (A); WRITELN (‘ВВЕДИ ВЫСОТУ ТРЕУГОЛЬНИКА’); READLN (H); S:=A*H/2; WRITE (‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА Р...

Чему будет равно значение, вычисленное по формуле =И(В1 25), если в клетке В1 находится число 25? Выберите один ответ: a. 25; b. 20; c. Ложь. d. Истина;

Для каждого из имен вычисли значение логического выражения:

Определи количество пикселей (суммарно Запиши верный ответ.Разрешение монитора 400×288.

В каком из условных операторов допущена синтаксическая ошибка: *A) If d=0 then write ('Два одинаковых корня');B) If a>b then max := a else max := b;C) If a<>b then c=(a+b)/2;D) If a>0 else...

Обов'язковим параметром під час збереження презентації є тип файлу. .doc.ppt.jpg.xls*.pps

Подсчитать количество чисел кратных 8 в промежутке от n до 100​

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

PROGRAM Z1; Образец VAR A, H: INTEGER; S: REAL; BEGIN WRITELN (‘ВВЕДИ ОСНОВАНИЕ ТРЕУГОЛЬНИКА’); READLN (A); WRITELN (‘ВВЕДИ ВЫСОТУ ТРЕУГОЛЬНИКА’); READLN (H); S:=A*H/2; WRITE (‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА Р...

Чему будет равно значение, вычисленное по формуле =И(В1 25), если в клетке В1 находится число 25? Выберите один ответ: a. 25; b. 20; c. Ложь. d. Истина;

Для каждого из имен вычисли значение логического выражения:

Определи количество пикселей (суммарно Запиши верный ответ.Разрешение монитора 400×288.

В каком из условных операторов допущена синтаксическая ошибка: *A) If d=0 then write ('Два одинаковых корня');B) If a&gt;b then max := a else max := b;C) If a&lt;&gt;b then c=(a+b)/2;D) If a&gt;0 else...

Обов'язковим параметром під час збереження презентації є тип файлу. *.doc*.ppt*.jpg*.xls*.pps

Подсчитать количество чисел кратных 8 в промежутке от n до 100

В каком из условных операторов допущена синтаксическая ошибка: *A) If d=0 then write ('Два одинаковых корня');B) If a>b then max := a else max := b;C) If a<>b then c=(a+b)/2;D) If a>0 else...

Обов'язковим параметром під час збереження презентації є тип файлу. .doc.ppt.jpg.xls*.pps