1. Написать программу ** языке Паскаль (линейный алгоритм) Найти произведение значений...

Question

1. Написать программу на языке Паскаль (линейный алгоритм) Найти произведение значений двух переменных и вывести результат на экран. 2. Написать программу на языке Паскаль (разветвляющийся алгоритм) Ввести два числа. Вычесть из большего меньшее. 3. Написать программу на языке Паскаль (алгоритмы с циклом) 3.1. Вывести на экран 3 раза свое ФИО. Особенность: одинаковые действия выполняются 3 раза. 3.2. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 20. 3.3. Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не будет введён 9. После ввода 9 программа должна вывести сообщение «Программа заверщена».

Answer 1

1

var

ch1, ch2: Integer;

begin

readln(ch1, ch2);

WriteLn(ch1*ch2);

end.

2

var

ch1, ch2: Integer;

begin

readln(ch1, ch2);

WriteLn(abs(ch1-ch2));

end.

3.1

var

i:Integer;

begin

for i:=1 to 3 do

WriteLn('ФИО')

end.

3.2

var

ch, sum: real;

begin

sum:=0;

ch :=1;

while ch <= 20 do</p>

begin

sum:= sum +ch;

ch:=ch+0.5;

end;

WriteLn(sum);

end .

3.3

var

ch:LongInt;

begin

ReadLn(ch);

while (ch>9) or (ch<9) do</p>

begin

ReadLn(ch);

end ;

WriteLn('Программа завершена');

end .

как лучший