Вывести на экран числа натуральные от 100 до первого числа включительно, которое делится на N и на 3 одновременно

@Badproge · Регистрация: 18.02.2020

Author24 — интернет-сервис помощи студентам

Во всех заданиях необходимо использовать цикл с постусловием и только его.

Ввести с клавиатуры натуральное число N (N<100).

Вывести на экран числа натуральные от 100 до первого числа включительно, которое делится на N и на 3 одновременно.

@ZX Spectrum-128 · 19.02.2020, 07:02

Pascal

var
  n, i: integer;
 
begin
  write('N (<100)? ');
  readln(n);
  i := 100;
  repeat
    if (i mod 3 = 0) and (i mod n = 0) then
    begin
      write(i:4);
      break;
    end;
    write(i:4);
    inc(i);
  until false;
end.

@Cyborg Drone · 19.02.2020, 07:58

ZX Spectrum-128, а костыль из "вечнного" цикла зачем? Until ничем не хуже, чем if.

Pascal

var
  n, k: integer;
begin
  repeat
    write('N in [1..99];  N = ');
    readln(n);
  until n in [1..99];
  if n mod 3 <> 0 then n := n * 3;
  k := 99;
  repeat
    inc(k);
    write(k:4)
  until k mod n = 0;
  readln
end.

@Badproge 0 / 0 / 0 Регистрация: 18.02.2020 Сообщений: 34
		1
	Вывести на экран числа натуральные от 100 до первого числа включительно, которое делится на N и на 3 одновременно 18.02.2020, 22:06. Показов 2769. Ответов 2 Метки нет (Все метки) Во всех заданиях необходимо использовать цикл с постусловием и только его. Ввести с клавиатуры натуральное число N (N<100). Вывести на экран числа натуральные от 100 до первого числа включительно, которое делится на N и на 3 одновременно. 0

	19.02.2020, 07:58