99. Написать программу, которая 10 раз выводит на экран имя и фамилию.

Program m1;

const

n=10;

var

i:integer;

a:string;

begin

writeln('Введите Имя и фамилию');

readln(a);

for i:=1 to n do

writeln(a);

readln;

end.

100. Написать программу, которая выводит таблицу квадратов первых десяти целых

положительных чисел.

Program m2;

const

n=10;

var

i:integer;

a:string;

begin

writeln('Таблица квадратов');

writeln('Число Квадрат');

for i:=1 to n do

writeln(i,' ',' ',' ',' ',' ',' ',' ',' ',' ', sqr(i));

readln;

end.

101. Написать программу, которая выводит таблицу квадратов первых пяти целых

положительных нечетных чисел.

Program m3;

var

i,a,n:integer;

begin

writeln('Таблица квадратов нечетных чисел');

writeln('Число Квадрат');

for i:=1 to 10 do begin

writeln(i, ' ',' ',' ',sqr(i));

i:=i+1;

end;

readln;

end.

102. Написать программу, которая вычисляет сумму первых n целых положительных целых чисел.

Program m4;

var

i,a,n:integer;

begin

writeln('Вычисление суммы положительных чисел.');

writeln('Введите количество суммируемых чисел.');

readln(n);

for i:=1 to n do

a:=a+i;

Вход

writeln('Таблица квадратов');

writeln('Число Квадрат');

for i:=1 to n do

writeln(i,' ',' ',' ',' ',' ',' ',' ',' ',' ', sqr(i));

Выход

Вход

writeln('Таблица квадратов нечетных чисел');

writeln('Число Квадрат');

for i:=1 to n do

writeln(i, ' ',' ',' ',sqr(i));

i:=i+1;

Выход

Вход

writeln('Вычисление суммы положительных чисел.'); writeln('Введите количество суммируемых чисел.');

readln(n);

for i:=1 to n do

а:=а+i;

w

writeln('Сумма первых',' ',n,' ','положительных чисел равна',' ',a);

riteln('Сумма первых',' ',n,' ','положительных чисел равна',' ',a);

readln;

end.

1 03. Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.

Program m5;

var

i,a,n,r,k:integer;

begin

writeln('Вычисление суммы четных положительных чисел.');

writeln('Введите количество суммируемых чисел и нажмите Enter.');

readln(n);

for i:=1 to n do begin

k:=k+2;

a:=a+k;

end;

writeln('Сумма первых',' ',n,' ','положительных четных чисел равна',' ',a);

readln;

end.

104. Написать программу, которая вычисляет сумму первых n членов ряда 1, 3, 7, 9, ... Количество суммируемых членов рла задается во время работы программы.

Program m6;

var

i,a,n,r,k:integer;

begin

writeln('Вычисление частичной суммы ряда:1,3,5,7...');

writeln('Введите количество суммируемых членов ряда.');

readln(n);

k:=k+1;

a:=1;

for i:=1 to n do begin

k:=k+2;

a:=a+k;

end;

writeln('Сумма первых',' ',n,' ','положительных четных чисел равна',' ',a);

readln;

end.

105. Написать программу, которая вычисляет сумму первых n членов ряда 1+1/2+1/3+ ... Количество суммируемых членов рла задается во время работы программы.

Program m7;

var

i,n:integer;

k,a:real;

begin

writeln('Вычисление частичной суммы ряда:1+1/2+1/3+...');

writeln('Введите количество суммируемых членов ряда.');

readln(n);

for i:=1 to n do begin

Выход

Вход

writeln('Вычисление частичной суммы ряда:1,3,5,7...');

writeln('Введите количество суммируемых членов ряда.');

readln(n);

k:=k+1; a:=1;

for i:=1 to n do

k:=k+2; a:=a+k;

writeln('Сумма первых',' ',n,' ','положительных чисел равна',' ',a);

Выход

Вход

writeln('Вычисление частичной суммы ряда:1,3,5,7...');

writeln('Введите количество суммируемых членов ряда.');

readln(n);

k:=1/i;

a:=a+k;

end;

writeln('Сумма первых',' ',n,' ','положительных четных чисел равна',' ',a:1:4);

readln;

end.

106. Написать программу, которая выводит таблицу степеней двойки(от нулевой до десятой).

Program m8;

const

n=10;

var

i,k:integer;

begin

writeln('Таблица степеней двойки');

for i:=0 to n do begin

writeln(i,' ',(exp(i*ln(2))):4:0);

end;

readln;

end.

107. Написать программу, которая вычисляет факториал введенного с клавиатуры числа.

Program m9;

var

i,n,k:integer;

begin

writeln('Вычисление факториала.');

writeln('Введите число, факториал которого надо вычислить');

readln(n);

k:=1;

for i:=1 to n do

k:=k*i;

writeln(i,' ',k);

readln;

end.

108. Написать программу, которая выводит таблицу значений функции y=-2.4x²+5x-3 в диапазоне от -2 до 2

с шагом 0,5.

Program m10;

v

writeln('X Y');

ar

i,n:integer;

y

for i:=1 to 10 do

,x:real;

begin

writeln('X Y');

x:=-2;

for i:=1 to 10 do begin

y

writeln(x:1:1,' ',y:2:2);

:=-2.4*sqr(x)+5*x-3;

writeln(x:1:1,' ',' ',' ',' ',y:2:2);

x:=x+0.5;

end;

readln;

end.

for i:=1 to n do

k:=1/i; a:=a+k;

writeln('Сумма первых',' ',n,' ','положительных чисел равна',' ',a:1:4);

Выход

Вход

writeln('Таблица степеней двойки');

for i:=0 to n do

writeln(i,' ',(exp(i*ln(2))):4:0);

Выход

Вход

writeln('Вычисление факториала.');

writeln('Введите число, факториал которого надо вычислить');

readln(n);

k:=1;

for i:=1 to n do

k:=k*i;

writeln(i,' ',k);

Выход

Вход

y:=-2.4*sqr(x)+5*x-3;

x:=x+0.5;

Выход