)подскажите ,как сделать программу: напечатать на экране все четырехзначные числа кратные 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? сомневаюсь,
2003Саша
2
26.06.2019 23:40
0
Другие вопросы по теме Информатика
galiamikhajlova
28.05.2019 20:20
Andrey500500500
28.05.2019 20:20
Maksprianikov
29.01.2021 14:00
yaooiojhh
05.05.2020 14:43
saxarowaulia
05.08.2019 16:30
motya10432
05.08.2019 16:30
Вано153
05.08.2019 16:30
Гусяра228
05.08.2019 16:30
sbabean219
05.08.2019 16:30
Популярные вопросы
- Закончить уравнения реакций h2so3 ca(oh)2 + h2 zncl2 + h2o cu + h2o baso4 + nacl...
1 - Определите величину естественного прироста населения россии в 2012 г....
1 - При каких значениях a сумма дробей 3a+2a и 2a−12a равна 5? (не выделяй целую часть)...
1 - 1) чем может быть осложнено простое предложение? 2) дать определение однородным...
1 - Температура воды измеряется термометром, цена деления которого равна 1с. как повысить...
3 - Пример решения на построение методом подобия поскорей 20 первый ответ зделаю лучшим...
2 - Сколько л оксида серы (iv) образуется при взаимодействии 16 г серы с кислородом....
3 - Іть будь-)потрібен твір - роздум україні потрібні її діти...
1 - вас! умоляю! нужно: ответить на вопрос по : какую одежду ты возьмешь с собой на...
2 - Указать падеж и склонение бежал по дороге .спал на печке .подошел к столу .отошел...
1
begin
for i:=1000 to 9999 do
if i mod 3=0 then begin
writeln(i);
inc(k);
end;
write('Кол-во таких чисел равно ',k);
end.