Программирование линейных алгоритмов (задачи)

Задача №1
Написать программу нахождения суммы двух чисел. Числа вводятся с клавиатуры.

Решение задачи №1

program summa;
uses CRT;
var a,b,s: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
s:=a+b;
writeln('s=',s)
end.

Задача №2
Найти периметр треугольника. Длины сторон вводятся с клавиатуры

Решение задачи №2

program perimetr;
uses CRT;
var a,b,c,P: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
P:=a+b+c;
writeln('P=',P)
end.

Задача №3
Написать программу нахождения периметра и площади прямоугольника. Стороны прямоугольника вводятся

Решение задачи №3

program pryam;
uses CRT;
var a,b,S,P: integer;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
P:=(a+b)*2;
S:=a*b;
writeln('P=',P);
writeln('S=',S)
end.

Задача №4
Написать программу нахождения периметра и площади. Сторона квадрата вводится с

Решение задачи №4

program kvadrat;
uses CRT;
var a,S,P: integer;
begin
clrscr;
write('a=');
read(a);
P:=4*a;
S:=sqr(a);
writeln('P=',P);
writeln('S=',S)
end.

Задача №5
Написать программу нахождения площади прямоугольного треугольника. Длины катетов вводятся с

Решение задачи №5

program treug;
uses CRT;
var a,b,S,P: real;
begin
clrscr;
write('a=');
read(a);
write('b=');
read(b);
S:=0.5*a*b;
writeln('S=',S:2:2)
end.

Задача №6
Написать программу нахождения значения выражения

Решение задачи №6

program prog;
uses CRT;
var a,x,y: real;
begin
clrscr;
write('a=');
read(a);
write('x=');
read(x);
y:=(sqr(x)-sqrt(x*a))/abs(a);
writeln('y=',y:2:2)
end.

Задача №7
Написать программу нахождения площади треугольника со сторонами a, b, c

Решение задачи №7

program treug;
uses CRT;
var a,b,c,p,s: real;
begin
clrscr;
read(a,b,c);
p:=0.5*(a+b+c);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:2:2)
end.

Задача №8
Написать программу нахождения суммы цифр двухзначного числа. Число водится с

Решение задачи №8

program summa;
uses CRT;
var X,a,b,S: integer;
begin
clrscr;
write('x=');
read(x);
a:=x div 10;
b:=x mod 10;
S:=a+b;
write('S=',S)
end.

Задача №9
Написать программу нахождения суммы цифр двухзначного числа. Число водится с

Решение задачи №9

program summa;
uses CRT;
var x,s: integer;
begin
clrscr;
read(x);
s:=(x mod 10)+(x div 100)+(x

Задача №10
С клавиатуры вводятся скорости двух автомобилей. Какое расстояние будет между