#S=6*a^2 - Формула нахождения площади поверхности куба. print('ВВедите сторону куба и нажмите "Enter"') # Выводим пользователю инструкцию что делать. a = int(input()) # Запрашиваем значение с клавиатуры. print('S =', 6*a**2) # Пишем в консоль "Площадь куба равна =" 6*a^2
Строчка "program Умножение;" спорная т.к. некоторые компиляторы поддерживают кириллицу, например PascalABC, но лучше использовать английские буквы.
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку "C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi; Var A,B,C:real; Begin Read(A,B); C:=A*B; Writeln('Произведение введенных Вами чисел равно ',C) End.
Program Zadacha; Const n = 10; m = 10; max = 15; Var A: Array [1..n, 1..m] Of Integer; B: Array[1..n] of Integer; C: Array[1..n] of Real; min, sum, count, i, j: Integer; Begin Randomize; For i := 1 To n Do For j := 1 To m Do A[i, j] := Random(max * 2) - max; min := max; For i := 1 To n Do For j := 1 To m Do If A[i, j] < min Then min := A[i, j]; For i := 1 To n Do For j := 1 To m Do If A[i, j] = min Then B[i] := 1; sum := 0; count := 0; For i := 1 To n Do Begin For j := 1 To m Do If (A[i, j] Mod 2 = 0) And (A[i, j] >= 0) Then Begin sum := sum + A[i, j]; count := count + 1; End; C[i] := sum / count; sum := 0;count := 0; End; WriteLn('Массив A:'); For i := 1 To n Do Begin For j := 1 To m Do Write(A[i, j], ' '); WriteLn; End; WriteLn('Массив B:'); For i := 1 To n DoWrite(B[i], ' '); WriteLn; WriteLn('Массив C (среднее арифметиеское положительных четных элементов массива A):'); For i := 1 To n Do Write(C[i]:5:2, ' '); ReadLn; End.
print('ВВедите сторону куба и нажмите "Enter"') # Выводим пользователю инструкцию что делать.
a = int(input()) # Запрашиваем значение с клавиатуры.
print('S =', 6*a**2) # Пишем в консоль "Площадь куба равна =" 6*a^2