Odpowiadasz na:

Zadania w Pascalu

Może ktoś wie jak zrobić te zadania. Dal nie których mogą być banalne, ale dla mnie. Ja dipiero zaczynam programowanie.

zadanie1. Napisać program, ktory sprawdza, czy liczba 'n' rozwiń

Może ktoś wie jak zrobić te zadania. Dal nie których mogą być banalne, ale dla mnie. Ja dipiero zaczynam programowanie.

zadanie1. Napisać program, ktory sprawdza, czy liczba 'n'
podana z klawiatury jest kwadratem innej liczby naturalnej,
tzn, czy istnieje taka liczba naturalna 'k', że n= k2

zadanie2. zmodyfikowac go tak, by liczyl ile razy powtarzana byla petla 'repeat...until'}

program repeat1;

var
ch:char;
begin
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch)
until(ch='k');
end.

zadanie 3. zmodyfikowac go tak, by zwracal zarowno iloczyn, jak i sume podawanych liczb

program iloczn1;
var
loczyn,ostatnia,i,ilosc:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
ostatnia:=1;
for i:=1 to ilosc do
begin
write(' Podaj kolejna liczbe: ');
readln(ostatnia);
iloczyn:=iloczyn*ostatnia;
end;
writeln('iloczyn wczytanych liczb wynosi', iloczyn);
writeln;
writeln;
writeln(' wcisnij ');
readln;
end.

z góry dzięki