Question

PASCAL
1 - Faça um programa que receba o valor de um carro se o valor for maior que 1000 escreva Aprovado ???

2- Faça um programa que receba o valor de um carro se o valor for maior que 1000 escrever aprovado se menor recusado ???

3- Faça um programa que receba o valor
- do salario
- receba o valor do produto
- quantidade de parcela
- receba o valor das despesas

Answer 1

Questão I e II

Program Pzim ; var valor:integer; resp:string;  Begin repeat writeln('Informe o valor do carro'); readln(valor); begin IF (valor>1000) THEN writeln('Aprovado') ELSE writeln('Recusado'); end; writeln('Deseja refazer o processo? [S/N]'); readln(resp);  until(resp = 'n'); End.

III Questão

 Program Pzim ; var sal, desp, par, vpro:integer; resp:string; Begin repeat writeln('Informe o valor do salário'); readln(sal); writeln(''); writeln('Informe o valor do produto'); readln(vpro); writeln(''); writeln('Informe a quantidade de parcelas'); readln(par); writeln(''); writeln('Informe o valor das despesas'); readln(desp); writeln('O salário é ', sal:2:2); writeln('O valor do produto é ', vpro:2:2); writeln('A quantidade de parcelas é ', par); writeln('O valor das despesas é ', desp:2:2); writeln('Deseja refazer o processo? [S/N]'); readln(resp); until(resp = 'n');   End.

Espero ter ajudado!