Определить разницу между максимальным и минимальным двухзначным числом

@saam67 · Регистрация: 18.01.2018

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

Написать программу, позволяющую определить разницу между максимальным и минимальным двухзначным числом, оканч. на 2 и кратным 4. Желательно сделать и с циклом for, и с while.

@ir24 · 26.01.2018, 07:57

Pascal

var i, min, max: integer;
    flag: boolean;
 
begin
  flag:= false;
  i:= 10;
  while (i < 100) do
  begin
    if (flag = false) and (i mod 10 = 2) and (i mod 4 = 0) then
    begin
      min:= i;
      flag:= true;
    end;
    if (i mod 10 = 2) and (i mod 4 = 0) then max:= i;
    i:= i + 1; 
  end;
  writeln('Ответ: ', min, ' ', max);
  writeln('Разница: ', max - min);
end.

@saam67 0 / 0 / 0 Регистрация: 18.01.2018 Сообщений: 6
		1
	Определить разницу между максимальным и минимальным двухзначным числом 25.01.2018, 20:05. Показов 1142. Ответов 1 Метки нет (Все метки) Написать программу, позволяющую определить разницу между максимальным и минимальным двухзначным числом, оканч. на 2 и кратным 4. Желательно сделать и с циклом for, и с while. 0

Опции темы

Определить разницу между максимальным и минимальным двухзначным числом

Решение