Стол - стон
корова - корона
дочь - ночь
боль - ноль
гора - нора
июль - июнь
Сколько надо? Если мало могу в комментариях еще написать
Var c:real;
Begin
WriteLn('z = 9/(2c-1)');
Write('c = ');ReadLn(c);
if 2*c-1=0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('z = ',9/(2*c-1))
End.
program vld;
var
a1,b1,a2,b2, s1,s2 : real;
begin
writeln('Введите катеты первого треугольника');
read(a1,b1);
writeln('Введите катеты второго треугольника');
read(a2,b2);
s1 := (a1 *b1 ) / 2;
s2 := (a2 * b2) / 2;
if s1 > s2 then
writeln('Площадь первого треугольника больше площади второго');
if s2 > s1 then
writeln('Площадь второго треугольника больше площаде первого');
if s1 = s2 then
writeln('Площади равны');
end.
uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.