var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Sub maxZn()
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
<span>Sub test()
Call maxZnEnd
Sub</span>
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
#Python 3.X
n = int(input('n = '))
c2, c3 = 0, 0
for i in range(n):
x = int(input('Число {}: '.format(i + 1)))
if x % 2 == 0:
c2 += 1
elif x % 3 == 0:
c3 += 1
print('На 2 делится {} чисел, на 3 - {}.'.format(c2, c3))
можно среда, элементраные действия, система команд, отказы ну и так далее
