Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3. var x,y: integer ; begin y:=0; For x:= 10 to 99 do if x mod 2=0 then y:=y+1; writeln ('количество чисел, кратных 2, равно ', y); end.
Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3.
var x,y: integer ;
begin
y:=0;
For x:= 10 to 99 do
if x mod 2=0 then
y:=y+1;
writeln ('количество чисел, кратных 2, равно ', y);
end.
Гость
Ответ(ы) на вопрос:
Гостьprogram aliona;
var
n,k,i:integer;
begin
writeln('n=');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 2=0)and (i mod 3=0)
then
inc(k);
writeln('k=',k);
readln;
end.
Не нашли ответ?
Похожие вопросы