составить программу для решения задачи
10-11 класс
|
Можно короче
Program School
var a, S: real;
begin
reagln (a);
if a > 5 then S := a*a*a else S := a*a;
writeln (S);
end.
Другие вопросы из категории
наибольшему элементу в этом массиве. Вывести значение наибольшего элемента.
число 100. Вот моя программа:
Private Sub CommandButton1_Click()
Dim C(1 To 20) As Integer
Dim I, N, S As Integer
For I = 1 To 20
C(I) = Cells(I, 1)
Next I
S = 0
N = 0
For I = 1 To 20
If S <= 100 Then S = S + C(I) And N = N + 1
Next I
Cells(2, 3) = "Количество элементов массива, сумма которых превышает 100=" & N
End Sub
как результат выводит "0" (т.е. N заданное изначально). Может, кто-то сможет подсказать ошибку? Это срочно!
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.
кратно ли оно 10.
Х. Определить,является ли оно четным и делится ли это число на 3