Тема: Создать в ячейки текст и картинки по образцу. Задайте в теге следующие параметры: ширина таблицы – 90%, расстояние между содержимым ячейки и рамкой – 5, толщина линий разлиновки – 2, выравнивание – по центру. Задайте в теге высоту строк =120. Залейте ячейки соответствующим цветом и вставьте картинки. Создайте файл 29.html.
Длинный "школьный" вариант // PascalABC.NET 3.1, сборка 1239 от 08.05.2016 const nn=100; var i,n:integer; a:array[1..nn] of integer; begin Write('n='); Read(n); Randomize; for i:=1 to n do begin a[i]:=Random(200)-100; Write(a[i],' ') end; Writeln; for i:=1 to n do Write(a[i]*2,' '); Writeln end.
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a.Select(x->2*x).Println
end.
Тестовое решение
n= 10
-52 -23 48 -54 -72 -36 -87 -46 -21 54
-104 -46 96 -108 -144 -72 -174 -92 -42 108
Длинный "школьный" вариант
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
const
nn=100;
var
i,n:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
a[i]:=Random(200)-100;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do Write(a[i]*2,' ');
Writeln
end.