Как записать код через цикл for?

@jestero · Регистрация: 17.02.2014

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

Pascal

var
 n : word;
begin
 n:= 1;
 while True do
 begin
 Inc(n);
 if (100 mod n) <> 4 then
 Continue;
 if (90 mod n) <> 18 then
 Continue;
 Writeln (n:4);
 break;
 end;
end.

Хотел через for, а у меня там получилась несовместимость типа boolean и integer.

@Puporev · 06.02.2016, 16:57

А что Вы решаете?

@jestero · 06.02.2016, 17:08 **[ТС]**

Сообщение от Puporev

А что Вы решаете?

Нужно найти число n. Остаток от 100/n=4, остаток от 90/n=18.

@SpBerkut · 06.02.2016, 17:16

Если я правильно понял, то:

Pascal

var
  n: word;
begin
  for n := 1 to 100 do
  if (100 mod n <> 4) or (90 mod n <> 18) then
    Continue
  else
  begin
    Write(n);
    break
  end
end.

@schoolteacher · 06.02.2016, 18:53

Или:

Pascal

program z1656364;
 var n:integer;
begin
 for n:=1 to 100 do
  if (100 mod n=4) and (90 mod n=18)
   then write(n:3);
end.

Как записать код через цикл for?

Решение

Решение

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2016, 16:57	2
	А что Вы решаете? 0

@jestero 11 / 11 / 2 Регистрация: 17.02.2014 Сообщений: 947
	06.02.2016, 17:08 [ТС]	3
	Сообщение от Puporev А что Вы решаете? Нужно найти число n. Остаток от 100/n=4, остаток от 90/n=18. 0

	06.02.2016, 18:53