Анонимно
Написать програму в паскале:
Найти кол-во чисео от 1 до n кратных 15
Ответ
Анонимно
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.
Ответ
Анонимно
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.
Новые вопросы по Информатике
5 - 9 классы
60 секунд назад
10 - 11 классы
1 минута назад
10 - 11 классы
2 минуты назад
5 - 9 классы
5 минут назад
1 - 4 классы
6 минут назад
Нужен ответ
10 - 11 классы
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад
Студенческий
2 месяца назад