1. Добавьте в описание переменных переменную a
2. код будет такой:
var a0, a1, a2, a3, a: longint;
Begin
read(a3, a2, a1, a0);
a:=a0+a1*10+a2*100+a3*1000;
write(a)
End.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Where(x->(x>0) and x.IsEven);
if b.Count=0 then Writeln('Нет четных положительных элементов')
else Writeln('Min=',b.Min,', max=',b.Max)
end.
<u><em>Тестовое решение</em></u>
n= 17
-11 15 46 -69 27 -26 68 -48 -2 9 17 7 -86 75 -58 -45 -52
Min=46, max=68
<span>Символы, находящиеся справа от курса, удаляют с помощью клавиши Delete</span>
Var
a,b,i:integer;
Begin
Write('Введите А и В ');
Read(a,b);
for i:= a to b do
writeln(a+(i-a),'^2 = ',sqr(i));
End.
Http://ideone.com/H6W5HJ программа на Паскале.
при x=1 a =<span>6.41411200080599E+001
</span> +Блок-схема.