Sugestão de resposta em linguagem algorítmica
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | programa Exercicio22; uses Classes, SysUtils; var x: Inteiro; inicio Escreva('Informe um numero: '); Leia(x); se (x mod 2 = 0) entao Escreva('O numero ', x, ' eh par.') senao Escreva('O numero ', x, ' eh impar.'); fim. |
Sugestão de resposta em Pascal, Lazarus, Delphi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | program Exercicio22; {$mode objfpc}{$H+} uses Classes, SysUtils; var x: Integer; begin try Write('Informe um numero: '); Readln(x); if (x mod 2 = 0) then Write('O numero ', x, ' eh par.') else Write('O numero ', x, ' eh impar.'); Write(#10#13#10#13, 'Tecle "Enter" para sair.'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. |
Outras linguagens?
Envie também a sua sugestão de algoritmo para showdelphi@showdelphi.com.br.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
