PASCAL – Verifica se 4 números inseridos são divisíveis por 2 ou por 3

by jorgecolaco · Published 09/26/2018 · Updated 09/26/2018

Esta é uma compilação de programas feitos na linguagem de programação PASCAL quando estava a frequentar o Curso Tecnológico de Informática na Escola Secundária de Rio Maior (2002/2003) – Nível Básico. Usem, partilhem e distribuam à vontade. – Podem fazer download de um compilador de PASCAL compatível com Windows 10 em – https://sourceforge.net/projects/windowsfreepascalide/
Jorge Colaço

program divisivel;
uses crt;

(*Declaracao variaveis*)
var
iA,iB,iC,iD : integer;

(* Inicio do programa *)
begin
write('Informe o Primeiro Valor: ');
readln(iA);
write('Informe o Segundo Valor: ');
readln(iB);
write('Informe o Terceiro Valor: ');
readln(iC);
write('Informe o Quarto Valor: ');
readln(iD);
if (((iA mod 2) = 0) or ((iA mod 3) = 0)) then
writeln ('O Primeiro numero inserido:', iA:3, ' é divisivel por 2 ou 3');
if (((iB mod 2) = 0) or ((iB mod 3) = 0)) then
writeln ('O Terceiro numero inserido:',iB:3, ' é divisivel por 2 ou 3');
if (((iC mod 2) = 0) or ((iC mod 3) = 0)) then
writeln ('O Segundo numero inserido:', iC:3, ' é divisivel por 2 ou 3');
if (((iD mod 2) = 0) or ((iD mod 3) = 0)) then
writeln ('O Quarto numero inserido:', iD:3, ' é divisivel por 2 ou 3');

(*Fica a espera de carregar em alguma tecla para sair*)
readln();
(* FIM do programa *)
end.