Паскаль

Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.

Program Anadra;

uses crt;

var a,b,c: integer;

begin

writeln(‘Введите 10 чисел’);

c:=1;

for a:= 1 to 10

do

begin

readln(b);

c:=c*b;

end;

writeln(‘Произведение чисел равно ‘,c);

end.

Читать далее

Из трех данных чисел выбрать наименьшее и наибольшее.

Program Anadra;

uses crt;

var a,b,c,min,max :integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a>b then max:=a

Else max:=b;

If c>max then max:=c;

If a<b then min:=a

Else min:=b;

If c<min then min:=c;

writeln(‘Самое большое число ‘,max);

writeln(‘Самое маленькое число ‘,min);

end. 

Читать далее

Из трех данных чисел выбрать наименьшее. 

 Program Anadra;

uses crt;

var a,b,c,min :integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a<b then min:=a

Else min:=b;

If c<max then min:=c;

writeln(‘Самое маленькое число ‘,min);

end. 

Разбор решения:

Задачка решается аналогично этой.  

Из трех данных чисел выбрать наибольшее.

Program Anadra;

uses crt;

var a,b,c,max :integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a>b then max:=a

Else max:=b;

If c>max then max:=c;

writeln(‘Самое большое число ‘,max);

end. 

Читать далее

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). 

Program Anadra;

uses crt;

var a,b,c: integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a>0 then a:=sqr(a)*a;

If a<0 then a:=sqr(a);

If b>0 then b:=sqr(b)*b;

If b<0 then b:=sqr(b);

If c>0 then c:=sqr(c)*c;

If c<0 then c:=sqr(c);

writeln(‘Новые значения: ‘);

writeln(a);

writeln(b);

writeln(c);

end.

 

Читать далее

Найти площадь прямоугольного треугольника, если даны длины его катетов a и b.

Program Anadra;

uses crt;

var a,b: integer;

S: real;

begin

writeln(‘Введите значения двух катетов’);

readln(a);

readln(b);

S:=(a*b)*0.5;

writeln(‘Площадь треугольника равна ‘,S);

end.

Читать далее

Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. 

Program Anadra;

uses crt;

var a,b,c,d,e,f: integer;

x,y: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

с:=sqr(a);

d:=sqr(b);

x:=(c+d)/2;

e:=abs(a);

f:=abs(b);

y:=(e+f)/2;

writeln(‘Среднее арифметическое их квадратов ‘,x);

writeln(‘среднее арифметическое их модулей ‘,y);

end.

Разбор решения:

Читать далее

Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

Решение:

Program Anadra;

uses crt;

var a,b,c,d,e: integer;

f: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

c:=a+b;

d:=a-b;

e:=a*b;

f:=a/b;

writeln(‘Сумма чисел ‘, c);

writeln(‘Разность ‘,d);

writeln(‘Произведение ‘,e);

writeln(‘Частное ‘,f);

end.

Разбор решения:  

Читать далее