Padekite su FPS labai prasau :)

a) Naudodami cikla for parasykit progama,kuri aspkaiciuotu

1) Intervalo [m;n] skaiciu suma ir ju kvadratu suma

2) Intervalo [n;m] lyginiu skaiciu suma

b)Parasykite progarma kuri rastu trizenklio skaiciaus skaitmenu suma.

c) Parasykite progarma kuri duota truzenkli skaiciu uzraso atbulai (pwz. is duoto skaiciaus 532 gautu : 235)

Nebuwau wisa pusmeti pamokose , ir dbr mokitojas liepe atsiskaityt :/ o nieko uzsirases nesu,taigi prasau padekite man :)

a.1.

Program a_1;
Uses Crt;
var m, n, s, kvs, i : Integer;

Begin
WriteLn('Iveskite intervalam nuo m iki n:');
ReadLn(m, n);
s := 0;
kvs := 0;
for i := m to n do
 Begin
  s := s+i;
  kvs := kvs+(i*i);
 End;
WriteLn('suma: ', s);
WriteLn('kvadratu suma: ', kvs);
ReadLn;
End.

a.2.

Program a_2;
Uses Crt;
var m, n, s, i : Integer;

Begin
WriteLn('Iveskite intervalam nuo n iki m:');
ReadLn(n, m);
s := 0;
for i := n to m do
 Begin
  if i mod 2 = 0 then
s := s+i;
 End;
WriteLn('suma: ', s);
ReadLn;
End.

b

Program b;
Uses Crt;
var sk, s, p, a, t, i : Integer;

Begin
WriteLn('Iveskite trizenkli skaiciu:');
ReadLn(Sk);
p := sk div 100;
t := sk mod 10;
i := sk mod 100;
a := i div 10;
s := p+a+t;
WriteLn('suma: ', s);
ReadLn;
End.

c

Program c;
Uses Crt;
var sk, ska, p, a, t, i : Integer;

Begin
WriteLn('Iveskite trizenkli skaiciu:');
ReadLn(Sk);
p := sk div 100;
t := sk mod 10;
i := sk mod 100;
a := i div 10;
ska := p+a*10+t*100;
WriteLn('atbulas: ', ska);
ReadLn;
End.

a.1.

Program a_1;
Uses Crt;
var m, n, s, kvs, i : Integer;

Begin
WriteLn('Iveskite intervalam nuo m iki n:');
ReadLn(m, n);
s := 0;
kvs := 0;
for i := m to n do
 Begin
  s := s+i;
  kvs := kvs+(i*i);
 End;
WriteLn('suma: ', s);
WriteLn('kvadratu suma: ', kvs);
ReadLn;
End.

a.2.

Program a_2;
Uses Crt;
var m, n, s, i : Integer;

Begin
WriteLn('Iveskite intervalam nuo n iki m:');
ReadLn(n, m);
s := 0;
for i := n to m do
 Begin
  if i mod 2 = 0 then
s := s+i;
 End;
WriteLn('suma: ', s);
ReadLn;
End.

b

Program b;
Uses Crt;
var sk, s, p, a, t, i : Integer;

Begin
WriteLn('Iveskite trizenkli skaiciu:');
ReadLn(Sk);
p := sk div 100;
t := sk mod 10;
i := sk mod 100;
a := i div 10;
s := p+a+t;
WriteLn('suma: ', s);
ReadLn;
End.

c

Program c;
Uses Crt;
var sk, ska, p, a, t, i : Integer;

Begin
WriteLn('Iveskite trizenkli skaiciu:');
ReadLn(Sk);
p := sk div 100;
t := sk mod 10;
i := sk mod 100;
a := i div 10;
ska := p+a*10+t*100;
WriteLn('atbulas: ', ska);
ReadLn;
End.

Čia maža pastabėlė: crt biblioteka čia nereikalinga, nes nepanaudojai nei vienos šios bibliotekos funkcijos.

Čia maža pastabėlė: crt biblioteka čia nereikalinga, nes nepanaudojai nei vienos šios bibliotekos funkcijos.

ai priprates ta crt rasyt tai ir db parasiau bet koks skirtums pats nusiims