Паскаль
Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.
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.
Разбор решения: