Отчет по практике: Основы программирования

writeln('Vse ego naturalinye deliteli:');

for i:=1 to n do

if n mod i=0 then writeln(i);

write('Vi xotite prodoljiti? (y/n) '); readln(prod);

if prod='y' then goto 1;

readln;

end.

3. Цикл пока.

Программа, используя оператор WHILE, которая выводит все четные числа в диапазоне от 2 до 100 включительно и вычисляет их сумму.

uses crt;

var a,s:integer;

begin

clrscr;

a:=0;

s:=0;

while a<100 do

begin

a:=a+2;

write(a,' ');

s:=s+a;

end;

writeln;

write('Summa chetnih chisel ot 2 do 100=',s);

readln

end.

Практическая работа №2.

1. Одномерные массивы.

2. Двумерные массивы.

3. Функции.