Помогите как составить эту программу вычисления чисел кратных не только 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.
begin
y:=0;
For x:= 10 to 99 do
if x mod 2=0 then
y:=y+1;
writeln ('количество чисел, кратных 2, равно ', y);
end.
More Questions From This User See All