Zivatar.hu Zivatar.hu Felhőtár
Számolj el n-ig, írd ki minden szám négyzetét! - Zivatar.hu

Számolj el n-ig, írd ki minden szám négyzetét!

Olvass be egy pozitív számot. Írd ki az összes számot 1 és az adott szám között, és ezek négyzetét is.

Szükséges kimenet:

> ./a.out
 Meddig szamoljunk? (pozitiv szam)
10
           1           1
           2           4
           3           9
           4          16
           5          25
           6          36
           7          49
           8          64
           9          81
          10         100

Megoldás:

      program negyzet
      integer n, i
      write(*,*) 'Meddig szamoljunk? (pozitiv szam)'
      read(*,*) n
      if (n.le.0) then
         write(*,*) 'pozitiv szam kellene'
         call abort
      endif
      do i=1,n
         write(*,*) i, i**2
      enddo
      stop
      end

Szerző: MacGyver
Létrehozás: 2012-11-04

Név
E-mail cím
Honlapod címe (ha van)
Hozzászólás
Mennyi három meg három (betűvel)?

eXTReMe Tracker