Parašė s1Nk· 2010 Rugs. 16 21:09:28
#80
Tu buvai padėjęs 2 x readln;. Kad programa neišsijungtų užtenka ir vieno readln;
Žinau, kad užtenka vieno. Bet kai aš parašau tik viena man programa iškart išsijungia ni atsakymo nespėju pamatyt. O su dviem neišsijungia.
Apskaičiukite, kam lygu 2pakeltas28, panaudodami kuo mažiau daugybos veiksmų.
(vietoje 'integer' panaudokite duomenų tipą 'longint')
Va kaip manau turėtu maždaug atrodyti programa.
program kelimas_laipsniu;
var a:longint;
begin
WriteLn('Skaičius');
Read(a);
a:=2;
a:=a*a;
a:=a*a;
Write(a);
ReadLn;
ReadLn;
end.