Даны числа от 1 до n. Найти произведение чисел кратных 3 и оканчивающихся ** 1.

0 голосов
189 просмотров

Даны числа от 1 до n. Найти произведение чисел кратных 3 и оканчивающихся на 1.


Информатика (29 баллов) | 189 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
var n,i,p:integer;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do
if (i mod 3 = 0)and(i mod 10 = 1) then p:=p*i;
writeln('p = ',p);
end.

Пример:
n = 80
p = 1071
(194k баллов)
0

да, div не нужен, похоже учитель просто не сказал, что див здесь не нужен(подтролил). А где проверка на кратность и т.д., это объясни пожалуйста.

0

Кратность - (i mod 3 = 0), проверка на то, чтобы число оканчивалось на 1 - (i mod 10 = 1)

0

Ещё вопрос(извини, что надоедаю). write('n = '); readln(n); зачем это нужно, тем более в начале ?

0

write('n = '); - вывод на экран подсказки для пользователя, readln(n); - ввод значения n с клавиатуры.

0

я в 9 классе просто )) ниче не скажет учитель ?

0

я с планшета выполнил в приложении одном, где вводишь код(паскаль) и выдаёт результат, вот что выдало-ошибка n = Runtime error 106 at $00000000004001FB $00000000004001FB $0000000000400180

0

Нужно ввести значение n (например, 80)

0

но в задаче сказано, что даны числа от 1 до n, т.е. компьютер сам по идее должен проверять каждое число(бред возможно пишу), это ладно, а что больше всего интересует,

0

в задаче даны числа от 1 до n, а ты за n что взял ? И последний вопрос, что значит writeln('p = ',p); ?

0

Раз вам дают такие задачи на дом, значит в школе соответствующие темы изучались. Нужно взять учебник или тетрадь и поучить. Кроме того, в самом паскале есть обширная справка по языку.