Program AmongUs; var x,a,b,c,d:intener; begin write('x=');readLn (x); a:=x div 1000; b:=x div 100 mod 10; c:=x div 10 mod 10; d:=x mod 10; x:=d*1000+c*100+b*10+a; writeLn('новое число'=,x,) end. что неправильно
begin for i := 1 to 5 do read(ar[i]); window.IsFixedSize := true; window.Init(0, 0, 800, 800, clDarkGray); window.CenterOnScreen; SetFontSize(32); for i := 1 to 5 do c := c + ar[i].ToString.Length; for i := 1 to 7 do writeln; write(' ':33 - c); for i := 1 to 5 do begin if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then begin SetFontColor(clred); write(ar[i]); end else if(ar[i] mod 10 = 0) then begin SetFontColor(clblue); write(ar[i]); end else if(ar[i] mod 2 <> 0) then begin SetFontColor(clyellow); write(ar[i]); end end; end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10;
var t: array[1..m] of integer; i, n, nm, sm: integer;
begin //Заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию задачи for i := 1 to m do begin t[i] := random(-20, 20);write(t[i]:4); if (i > 1) and (i <= m) then if t[i] > t[i - 1] then n := n + 1 else if t[i] < t[i - 1] then begin sm := sm + t[i];nm := nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);
Program AmongUs;
var x,a,b,c,d:integer;
begin
write('x=');readLn (x);
a:=x div 1000;
b:=x div 100 mod 10;
c:=x div 10 mod 10;
d:=x mod 10;
x:=d*1000+c*100+b*10+a;
writeLn('новое число=',x)
end.
Объяснение:
1) var x,a,b,c,d:intener; - неправильно написан тип данных (меняем intener на integer)
2) writeLn('новое число'=,x,) - неправильно стоит кавычка для вывода текста (переносим ' за = )
3) writeLn('новое число'=,x,) - лишняя запятая после x (убираем)