1. Информатика
  2. Вывести на экран двузначные

Вывести на экран двузначные числа последняя цифра которых кратна 3 циклом while

Qeasdzxcrfv Qeasdzxcrfv    1   19.05.2019 11:20    1

Ответы
натусик252 натусик252  12.06.2020 15:16

var

  c:integer;

begin

  c := 10;

  while c < 100 do

  begin

    if ((c mod 10) mod 3 = 0) and (c mod 10 <>0) then

      write(c, ' ');

    c := c + 1;

  end;

  writeln;

end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
golgotha golgotha  05.09.2019 12:30
Даны отрезок, линейка и ремень. опишите их свойства...
schaposchnyk schaposchnyk  31.07.2019 10:50
Вфирме работают 4 человека. каждый получает разную зарплату. необходимо вывести на экран насколько самая маленькая отличается от большой....
Milenadaw Milenadaw  31.07.2019 10:50
Вывести на экран наибольшее целое число в диапазоне от 0 до введеного, которое делится на 8....
RinOkumura99 RinOkumura99  31.07.2019 10:50
Определить симметричны ли элементы в массиве (одномерном) относительно центрального или центральных?...
vasa2283 vasa2283  31.07.2019 10:50
Решить на вставку в массив. несколько тестовых наборов данных для проверки работо программы дан целочисленный линейный массив. вставить число a между всеми соседними...
Dhbdej Dhbdej  31.07.2019 10:50
Заполнить пропуски procedure solution(n: byte; var s: integer); var i: byte; a: integer; begin s : = 10; for i : = 1 to n do begin a : = -20 + random(41); write(a:...
maskaasenkova maskaasenkova  25.05.2019 13:00
:массивы: 1) дан одномерный массив. даны целые числа . имеются ли в последовательности два идущих подряд члена кратных 3 . 2) дан одномерный массив. найти номера всех...
Valeriya2576 Valeriya2576  25.05.2019 13:00
Автомобиль движется равномерно со скоростью v км/ч. определить, за какое время он проедет расстояние y км...
kitsunesan13 kitsunesan13  25.05.2019 13:00
)1) переведите число 32 из 10 системы в 2 2) перевидите число 130 из 6 системе в 10 3) перевидите число 107 из 10 системы в16 зарание )...
Nastyaa271 Nastyaa271  18.09.2019 23:50
Напишите программу, которая получает на вход сумму в долларах и сумму в евро, а затем выводит на экран в какой валюте сумма больше (1 доллар=28 руб., 1 евро=35 руб.)...

Популярные вопросы