Question

Napisz program w PASCALU który wyświetli liczby pierwsze i program drugi: program który wyświetli liczby parzyste

POMÓŻCIE!!!!!!!!

Answer 1

Nie napisalaś ile ma tych liczb pierwszych wyświetlać i ile parzystych. Napiszę programy tak, że na początku trzeba będzie podać z jakiego przedziału te liczby pierwsze ma wyświetlać (od zera w górę) np. wpiszesz sto to wyświetli wszystkie liczby z przedziału od zera do 100.

Program od liczb pierwszych:

program pierwsze;

{$APPTYPE CONSOLE}

uses
SysUtils, System;

var
a : Integer;
b : Integer;
c : Integer;
d : Integer;
begin
Writeln('Liczby pierwsze');
Write('Podaj liczbe max.: ');
Read(d);
Writeln('Trwa obliczanie...');
Writeln('Te liczby to:');
Writeln('1');
Writeln('2');
for a := 3 to d do
begin
c:=0;
for b :=2 to a-1 do
begin
if a mod b = 0 then
Break
else
c:=c+1;
end;
if c=a-2 then
Writeln(a);
end;
Writeln('Gotowe!');
Writeln('Nacisnij kalwisz aby kontynuowac...');
Readln;
Readln;

end.


Liczby parzyste:

program pierwsze;

{$APPTYPE CONSOLE}

uses
SysUtils, System;

var
a : Integer;
b : Integer;
begin
Writeln('Liczby parzyste');
Write('Podaj liczbe max.: ');
Read(b);
Writeln('Trwa obliczanie...');
Writeln('Te liczby to:');
for a := 2 to b do
begin
if a mod 2=0 then
Writeln(a);
end;
Writeln('Gotowe!');
Writeln('Nacisnij kalwisz aby kontynuowac...');
Readln;
Readln;

end.

Licze na naj;)