dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
1. Оформление рабочего стола.2 ярлыки, папки , файлы расположенные на робоч столе .3 дата, изготовление раб стола.4имя пользователя , работающего с РС
Uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
<span>end.</span>
A, b, c = int(input())
v = a * b * c
print(v)
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П