1)Napišite algoritam za program koji množi sve neparne brojeve od 1 do 10 i ispisuje krajnju vrijednost ako je rezultat djeljiv sa 5?
2)Ispisati najveći elemenat na glavnoj dijagonali matrice dimenzija NxN. Korisnik unosi N koje mora biti manje od 4.
Ako moze neko da rijesi ova dva zadatka :D
evo ovako imam seminarski rad iz informatike , napraviti neki program po zelji u pascalu al mi se neda radit nest jednostavno kao da ispisuje neke brojeve ili nest pise po ekranu , pa sam mislio napravit program slican onim aparatima za kladjenje virtualnim samo mi netko treba pojasnit kako da prikazem neku sliku u pascalu i pomicem je po ekranu? Jedino me to zanima.
PROGRAM binarno_oktalno(inpuut,output);
USES WinCrt; VAR broj1,broj2,c,os,i,br:integer;
niz:array[1..100] of integer;
BEGIN i:=1;br:=0;
writeln('Unesite neki broj:');
read(broj1); broj2:=broj1;
while broj1>=1 do
begin
c:=broj1 div 8;
os:= broj1 mod 8;
niz[i]:=os;
i:=i+1;br:= br+1;
broj1 :=c;
end;
for i:=br downto 1 do
write(niz[i]);
writeln;
i:=1;br:=0;
while broj2>=1 do
begin
c:=broj2 div 2;
os:=broj2 mod 2;
niz[i]:=os;
i:=i+ 1;br:=br+1;
broj2:=c;
end;
for i:=br downto 1 do
write(niz[i]);
end.
Pozz ljudii, tek učim paskal pa ne znam baš ovo uraditi..
Prethodni programski kod treba izmjeniti tako da vraća u heksadecimalnu vrijednost pa ako može pomoć. :)
Treba mi hitno sutra zadatak za ocjenu ja sam pokusavao ali ne snalazim se bas najbolje a ocjena mi treba da prodem
Napisati program koji ocitava neki prirodan broj i broji koliko jedinica ima u binarnom zapisu tog broja.
-nećeš .. :)
Ako je baš za prolaz probaj ovako:
program Zadatak;
var num, sum: Integer;
begin
readln(num);
sum := 0;
while num > 0 do
begin
sum := sum + num mod 2;
num := num div 2;
end;
writeln(sum);
end.
