var i,K,S:real;
begin
write('vvedite K = ');
readln(K);
S=0
for i=100 to 999 do
begin
if i mod K = 0 then
S=S+i;
end;
write('S = ',S);
readln;
end.
Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца.
1. Пусть за 1й мес он выучит числа - то есть 1 операцию.
2. За 2й мес он выучит + или -, то есть 1 операцию.
3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.
Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.
ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.
Как-то так я думаю
Задача нелогичная, получается, что он должен обучиться 5 операциям (4 действия и числа), на все эо дано 3 месяца.
1. Пусть за 1й мес он выучит числа - то есть 1 операцию.
2. За 2й мес он выучит + или -, то есть 1 операцию.
3. За 3й мес он выучит или -, или *, или : ЛИБО или +, или *, или : - то есть 1 операцию.
Всего за 3 месяца он может выучит 3 операции из желаемых 5 независимо от того, в какой последовательности он будет осваивать их.
ответ: не успеет, ему необходимо 5 месяцев либо увеличить количество операций, изучаемыз в месяц.
Как-то так я думаю
i,k,s:integer;
read(k);
s=0
for i=100 to 999 do begin
if i mod k = 0 then
s=s+i;
end;
write(s);
end.