PASCAL. Hogyan tudom kiíratni egymás alá a 4-el oszható számokat? (1től 20-ig)
Az alapok megvannak, hogy:
begin
clrscr;
for i:=1 to 20 do
begin
writeln( ÉS ITT NEMTUDOM MIT KELL ÍRNI, HOGY 4-EL OSZHATÓ SZÁMOT KAPJAK)
end;
readln;
end.
válasza:Ha jól emlékszem MOD a művelet, ami neked kell.
Ha i mod 4 = 0, akkor osztható. A szintaktikát már végképp nem tudom.
válasza:if i mod 4 = 0 then WriteLn i
Ha a mod-ot hasznáod, akkor mindig csak az osztás maradékát adja vissza eredményül. Ha nulla a maradék, akkor ugye osztható az adott szám 4-el.
válasza: válasza: válasza:var
i: Longint;
begin
for i := 1 to 20 do
begin
if ((i mod 4) = 0) then
begin
Writeln(i);
end;
end;
Readln;
end.
válasza:A begin end páros egysoros 'törzseknél' elhagyható és a feltétel sem annyira bonyolult, hogy zárójel kellene.
var i : Integer;
begin
for i := 1 to 20 do if i mod 4 = 0 then WriteLn(i);
ReadLn;
end.
válasza: válasza:Hogy ne csak modos megoldás legyen, még két próbálkozás:
var i, n : byte;
begin
n := 0;
for i := 1 to 20 div 4 do
begin
Inc(n, 4);
WriteLn(n);
end;
ReadLn;
end.
* * * * *
var i : byte;
begin
for i := 1 to 20 do if i = (i shr 2) shl 2 then writeLn(i);
ReadLn;
end.
válasza:Ha karakterre fizetik az embert akkor hajrá...
Az egészben csak az bosszant, hogy le is írtam miért elég egy sornyi kód.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!