Вычислите количество чисел в промежутке от А до В (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в Паскале
Вычислите количество чисел в промежутке от А до В (которые вводятся с клавиатуры), которые кратны 7 или оканчиваются на 9. в Паскале
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var a,b,k,i: integer;
begin
readln(a,b);
k:=0;
for i:=a to b do if (i mod 7=0) or (i mod 10=9) then k:=k+1;
write(k);
end.
Не нашли ответ?
Похожие вопросы