Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: klausimai

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