Question

1. Algorytm, który zbada czy wprowadzona liczba z przedzialu <1,100> jest parzysta

2.Algorytm, który wprowadzi najmniejszą liczbespośród k liczb wprowadzonych

3.Algorytm, który zsumuje liczby większe od 5 spośród 10 wprowadzonych

4.Algorytm, który zsumuje cyfry wprowadzonej liczby całkowitej

DAJE NAJJ

potrzebne na dzis

Answer 1

PROGRAM Zad1;
uses crt;
var a:integer;

BEGIN
writeln('Podaj liczbe z przedzialu <0,100>');
readln(a);
    begin
    if a mod 2=0 then writeln('Podana liczba jest parzysta')
    else writeln('Podana liczba jest nieparzysta');
    end;
readln;
END.

 

Program Zad2;
var    x,y,i,ilosc:integer;
begin
writeln('Podaj ilosc liczb');
readln(ilosc);
writeln('Podaj pierwsza liczbe');
readln(x);
for i:=2 to ilosc do
begin
writeln('Podaj ',i,' liczbe');
readln(y);
if x>y then x:=y;
end;
writeln('Najmniejsza liczba z podanych to ',x);
readln;
end.

 

Program Zad3;
var    i,suma,ilosc:integer;
       x:array[1..10] of integer;
begin
ilosc:=10;
suma:=0;
for i:=1 to ilosc do
begin
writeln('Podaj ',i,' liczbe');
readln(x[i]);
if x[i]>5 then
suma:=suma+x[i];
end;
writeln('Suma liczb wiekszych od 5 wynosi ',suma);
readln;
end.

 

Program Zad4;
var    x: string;
       suma,i,cyfra:integer;
begin
writeln('Podaj liczbe calkowita');
readln(x);
for i:=1 to Length(x) do
begin
val(x[i],cyfra);
suma:=suma+cyfra;
end;
writeln('Suma cyfr liczby ',x,' wynosi ',suma);
readln;
end.