<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
Var
A: array [1..4, 1..5] of real;
i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
A[i, j] := random*2-1;
write(A[i, j]:6:2, ' ');
if A[i, j] > 0 then z := z + 1;
end;
writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.
Слово-Единица речи, служащая для выражения отдельного понятия.
Абзац- Красная строка, отступ в начале строки
Строка для текстового редактора- это прикладная программа, позволяющая создавать текстовые документы, редактировать их, просматривать содержимое документа на экране, распечатывать документ.
Ответ:
5б:
x = input("введите число: ")
y = ""
for i in range(len(x)):
y += (x[-i])
if x==y:
print ("Перевертыш")
else:
print ("Нет")
_________________________________________________
6:
x1 = int(input("x1: "))
y1 = int(input("y1: "))
x2 = int(input("x2: "))
y2 = int(input("y2: "))
R1 = (x1**2 + y2**2)**(0.5)
R2 = (x2**2 + y2**2)**(0.5)
if R1 > R2:
print ("2 ближе")
elif R2>R1:
print ("1 ближе")
else:
print("одинаково")
_____________________________________________
7:
a = int(input("1 сторона: "))
b = int(input("2 сторона: "))
c = int(input("3 сторона: "))
if (a>=b+c) or (b>=a+c) or (c>=b+a):
print("не существует")
elif a==b and b==c:
print ("Равносторонний")
elif a==b or b==c or a==c:
print ("Равнобедренный")
else:
print("Существует")
Объяснение:
Там все понятно