Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.

как то так