Informatikos uždaviniai

Labas rytas,

būtų šaunu, kad atsirastu koks žmogus, kuris padėtų padaryti šiuos tris uždavinukus free pascal`iu.

1. Sudarykite procedūrą, kuri spausdintų jūsų vardą n kartų (konkreti n reikšmė įvedama klaviatūra) ir patalpinkite ją programoje. Rezultatus išvedate stulpeliu.

2. Sukurkite procedūrą, kuri atspausdintų visus triženklius sveikuosius skaičius, kurie dalijasi iš paskutiniojo savo skaitmens. Šią procedūrą patalpinkite programoje. Rezultatus išspausdinkite eilute.

3. Raskite skaičių, kurie intervale [a;b] ir dalūs iš 3, kvadratų sumą.

Nepamenu kaip procedūros atrodo tai tik trečia parašiau :DD

3.

program Bevarde16;
var a, b, i, sum : longint;
begin
 Write('A: ');   Readln(a);
 Write('B: ');   Readln(b);
for i:=a to b do
begin
if i mod 3 = 0 then
sum:=sum+(i*i);
end;
writeln('Atsakymas: ',sum);
 Readln;
end.

Prisiminiau ir procedūras:

1.

program Bevarde16;
procedure vard(var name:string; n :longint);
var i: integer;
begin
for i:=1 to n do
writeln(name);
end;
var n : longint;
name : string;
begin
 Write('Vardas: ');   Readln(name);
 Write('N: ');   Readln(n);
  vard(name,n);
 Readln;
end.

2.

program Bevarde17;
procedure sk();
var i : longint;
begin
 for i:=100 to 999 do
 begin
 if (i mod 10) <> 0 then
 begin
 if i mod (i mod 10) = 0 then
 write(i,', ');
 end;
 end;
end;
begin
 WriteLn('Labas');
 sk();
 Readln;
end.

Labai aciu, hypre. :)

Prireikė dar šiek tiek pagalbos iš programavimo.

1. Sudarykite funkciją skaičiaus faktorialui rasti.

2. Sudarykite funkciją natūraliojo skaičiaus skaitmenų sumai rasti.

faktorialas := 1;
for i := 1 to n do
faktorialas *= i;


while n > 0 do
begin
	suma += n mod 10;
	n = n div 10;
end;

program sksuma;
var sk : integer;
function suma : integer;
begin
suma := 0;
while sk <> 0 do
   begin
       suma += sk mod 10;
       sk := sk div 10;
   end;
end;
begin
 readln(sk);
 writeln(suma);
 Readln;
end.