Programozás topic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Mobilarena

Frissítve: 2023-12-13 06:18 Téma összefoglaló

Mobilarena

Új hozzászólás Aktív témák

Szsolt tag

#310
#307 heihachi
2004-10-27 09:20:56

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Szsolt

tag

#307 heihachi

#307 heihachi
Elég szar, de megy:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n = 10;

var
j : integer;

begin
for j := 1 to n do begin
if sqrt(j)-round(sqrt(j))=0 then writeln(j);
end;
readln;
end.

Hogy sikerült a Zh-d?

Új hozzászólás Aktív témák

Téma tudnivalók

● olvasd el a téma összefoglalót!

Aktív témák

Hirdetés

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek