Program Program1;
var a,b,c,d:real;
begin writeln('Введите число 1'); readln(a); writeln('Введите число 2'); readln(b); writeln('Введите число 3'); readln(c); d:=a+b+c; writeln('a+b+c=',d);end.
Водка.
Напиток состоящий из воды и максимально очищенного от примесей этилового спирта, который составляет по объёму от 35 % до 70 %. Русская же водка содержит 40 % этилового спирта.
Существует версия, что первую водку изготовил арабский врач Парес в 860 году,которая использовалась в якобы медицинских целях, а вот в Европе первая перегонка этого напитка была сделана итальянским монахом-алхимиком Валентиусом.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>