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