Question

PASCAL

1.Napisz program sumujacy kolejno liczby calkowite az do momentu gdy przekroczy 1000

trzeba uzyc interakcji czy rekurencji jakos tak

2.Program wczytuje a i b calkowite dodatnie a nastepnie liczy i wypisuje warunek a do potegi ab

Answer 1

Zaczne od tegob ze prezentowane zadania mają nielogiczną treśc, bo:

ad 1: nie wiadomo jakie te liczby maja byc (ja przyjme ze w przedziale [0;1000]

ad 2: jak moze wypisywac warunek? Chodzi ci raczej o wartosc .

 

Zad.1:

 

Program sumowanie;

uses CRT;

var j,suma: longint;

 

begin

 

CLRSCR;

 

suma:=0;

 

for j:=0 to 1000 do

suma:=suma+j;

 

Writeln(' Suma liczb z przedzialu [0;1000] wynosi: ',suma);

 

repeat until KeyPressed;

 

end.

 

--------------------------------------------------------------------------------------

 

Zad. 2:

 

Program potega;

uses CRT;

var a,b,j,iloczyn: longint;

 

begin

 

CLRSCR;

 

Writeln(' Podaj a i b: '); Read(a); Read(b);

 

iloczyn:=1;

 

for j:=1 to a*b do

iloczyn:=iloczyn*a;

 

Writeln(' ',a^{a*b},' wynosi: ', iloczyn);

 

repeat until KeyPressed;

 

end.