)подскажите ,как сделать программу: напечатать - вопрос №3826793 от sasharuf2000 02.04.2022 05:19

Question

Информатика: )подскажите ,как сделать программу: напечатать на экране все четырехзначные числа кратные 3 и подсчитать кол-во ink(k) cаму программу я сделала подскажите вот это ink(k) var i,k: integer; begin for i: =1000 to 9000 do if i mod 3=0 then write(i); может ink(k) =k*3? сомневаюсь,

sasharuf2000 · Answer

Var i,k:integer;beginfor i:=1000 to 9999 doif i mod 3=0 then beginwriteln(i);inc(k);end;write( Кол-во таких чисел равно ,k);end....