Exercicios de pascal

1) Criar um algoritmo que receba e exiba o nome e telefone de 15 amigos Program Exercicio1;Varnome:string;tel,i:integer;Begin for i:=0 to 14 do begin; Write('Escreva o nome do seu amigo:'); Read(nome); Write('Digite o numero do seu amigo:'); Read(tel); end; End. | Program Exercicio1;Varnome:string;tel,i:integer;Begin i:=0; while i <14 do begin; Write('Escreva o nome do seu amigo:'); Read(nome); Write('Digite o numero do seu amigo:'); Read(tel); end;End. |

Program Exercicio1;Varnome:string;tel,i:integer;Begin i:=0; repeat Write('Escreva o nome do seu amigo:'); Read(nome); Write('Digite o numero do seu amigo:'); Read(tel); i:=i+1 until i>14;End. |

2) Criar um algoritmo que receba e exiba a idade de 15 pessoas.

Program Exericio2;Varid,i:integer;Begin for i:=0 to 15 do begin; Write('Digite a idade do seu amigo'); Read(id); end;End. | Program Exericio2;Varid,i:integer;Begin i:=0; while i<15 do begin; Write('Digite a idade do seu amigo:'); Read(id); i:=i+1; end;End. |

Program Exericio2;Varid,i:integer;Begin i:=0; repeat Write('Digite a idade do seu amigo:'); Read(id); i:=i+1; until i>14;End. |

3) Criar um algoritmo que exiba o contador que ira variar de 1 a 25.

Program Exericio3;Vari:integer;Begin for i:=1 to 25 do begin; writeln(' ', i); end; End. | Program Exericio3;Vari:integer;Begin i:=1; while i<26 do begin; writeln(' ', i); i:=i+1; end; End. | Program Exericio3;Vari:integer;Begin i:=1; repeat writeln(' ', i); i:=i+1; until i>25; End. |

4) Criar um algoritmo que exiba os números de 1 a 1000. Program Exericio4;Vari:integer;Begin for i:=0 to 1000 do begin; writeln(' ', i); i:=i+1; end; End. | Program Exericio4;Vari:integer;Begin repeat writeln(' ', i); i:=i+1; until i>1000 End. |

Program Exericio4;Vari:integer;Begin i:=1; while i<1001 do begin; writeln(' ', i); i:=i+1; end; End. |

5) Criar um