Parašė s1Nk· 2010 Spa. 14 16:10:50
#123
Va sprendimas tiems kurie sakė, kad su daugybos veiksmais neina padaryt 2(28 laipsni), o tik su ciklu.
program Bevardė7;
var x,z,a2,a4,a8,a16:longint;
begin
WriteLn('Iveskite skaičiu');
Read(x);
a2:=x*x;
a4:=a2*a2;
a8:=a4*a4;
a16:=a8*a8;
z:=a16*a8*a4;
Write(z);
ReadLn;
Readln;
end.
Nauja nesudėtinga užduotis.
Parašykite algoritmą, spaudinanti kintamojo x reikšmę, jei ji nedidesnė už 5.
program Bevardė7;
var x:integer;
begin
WriteLn('Iveskite x');
ReadLn(x);
if x<5 then
writeLn('x yra mažiau už 5 ir jis yra lygus:',x)
else if x>5 then
writeLn('x yra daugiau už 5 ir jis yra lygus:',x);
ReadLn;
Readln;
end.
Dabar reik išsprest dar viena uždavinį, su tuo man jau sunkiau.
Salyga:
Parašykite algoritmą kintamųjų a ir b reikšmėms palyginti ir, jeigu jos nelygios, didesniajai priskirti a div b reikšmę.
Redagavo s1Nk· 2010 Spa. 14 17:10:19