Составление разветвляющего алгоритма в среде турбо паскаль.
1)Определить, является ли число n одновременно
положительным и кратным 3
1)Определить, является ли число n одновременно
положительным и кратным 3
More Questions From This User See All
Answers & Comments
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.
как то так