Составление разветвляющего алгоритма в среде турбо паскаль.

1) Определить, является ли число n одновременно

положительным и кратным 3

Question

Информатика

Герман

27 июля, 08:20

Составление разветвляющего алгоритма в среде турбо паскаль.

1) Определить, является ли число n одновременно

положительным и кратным 3

+4

Ответы (1)

Знаете ответ на вопрос?

Альбинка · Answer 1

Program test;

var n:shortint;

chr:integer;

begin

readln (n) ;

chr:=n mod 3; i

f n>0 then begin

if chr = 0 then writeln (n,' - удовлетворяет условию') else writeln (n,' - не удовлетворяет условию') ;

end

else begin writeln (n,' - не удовлетворяет условию') end;

end.

как то так

Составление разветвляющего алгоритма в среде турбо паскаль.1) Определить, является ли число n одновременноположительным и кратным 3

Составление разветвляющего алгоритма в среде турбо паскаль.

1) Определить, является ли число n одновременно

положительным и кратным 3