Предмет: Информатика,
автор: aklaevadi
Написать програму в паскале:
Найти кол-во чисео от 1 до n кратных 15
Ответы
Автор ответа:
0
var
i,a,n:integer;
begin
a:=0;
write('Введите число n: ');
readln(n);
for i:=1 to n do
if i mod 15=0 then a:=a+1;
writeln('Количество чисел: ',a);
readln;
end.
Автор ответа:
0
CONST n=30; //Вместо 30 пишем нужное число n
VAR m:integer;
BEGIN
m:=n div 15;
writeln (m);
END.
VAR m:integer;
BEGIN
m:=n div 15;
writeln (m);
END.
Автор ответа:
0
У тебя значение m будет равно целой части от деления на 15 числа n. Условие задачи повнимательнее прочти, что именно там требуется
Автор ответа:
0
Не вижу большой разницы. Пользуюсь тем, что каждое 15-ое число кратно 15-ти.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Қазақ тiлi,
автор: bekzatkhannurgazy
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: anastasi1661