i изменяется от 12
до 7
с шагом -1
Этот текст добавлен, чтобы добрать необходимые 20 символов.
Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
Pascal abc.
Результат выполнения программы:
-4 -8 5 -3 -9
-4 2 -6 -7 6
-2 -2 -10 6 -2
-9 6 -7 5 7
-7 9 5 -8 8
<span>нечетное</span>
По второму условию от кода буквы С отличается в 3 позициях -> для T
кодовое слово 10110
Var A:array[1..15] of integer;
i:integer;
Begin
For i:= 1 to 15 do
Begin
A[i]:=random(20)+1;
Write(A[i],' ')
End;
WriteLn;
For i:= 1 to 15 do
Begin
if A[i]<10 then A[i]:=A[i]*2;
Write(A[i],' ')
End;
End.