1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
write('A[',i,'] = ');
readln(A[i]);
End;
writeln('Преобразованный');
For i:=1 to n do
Begin
if A[i] mod 10 = 4 then A[i]:=A[i]-2;
write(A[i]:4);
End;
readln;
End.
Возьмем число 56 и его надо перевести из 10-ой в 2-ую. Тут надо делить на 2 с остатком
56:2= 28+0-остаток
28:2=14+0
14:2=7+0
7:2= 3+1
3:2=1+1
1:2= 1+0
и записываем остатки снизу вверх
011000
<span>program zadacha;
var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b
else
if a < c then s := c
else s := a
else
if b > c then s := b
else
if a > c then s := c
else s := a;
writeln('Среднее по значению: ', s);
end.</span>
Программа на Кумире прилагается.