Ben ritrovati.
Che bello il venerdi sera. La settimana sta per finire ma c'è ancora tempo per il giorni più bello della settimana, il Sabato!
Nell'ora di informatica di quest'oggi abbiamo trovato la soluzione a due programmi.
Il primo riguardante la Susi:
program susi;
var g, s, q, r : integer;
begin
g:=73; s:=0;
repeat
q:= g div 2; inc (s,q);
r:= g mod 2; g:= q+r;
until g=1;
writeln(s);
end.
Il secondo della maestra cattiva:
program maestra_cattiva;
const inizio=3000; fine=6000; passo=3;
var n, k : integer;
begin
n:= (fine-inizio) div passo;
for k:=0 to n do write(inizio+k*passo:5);
end.
Andatevi a vedere questo indirizzo: http://it.wikipedia.org/wiki/%C3%89variste_Galois
Vi saluto.
Nessun commento:
Posta un commento