Бит-1, Байт-2, Килобайт-3, Мегабайт-4, Гигабайт-5.
1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('<span>сумма:',summa:6:2);
</span>Writeln('<span>произведения </span>:',proiz:6:2);
end.
2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.
program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
for i:=1 to 5 do
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
begin
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
1) javascript:var м = [], n = prompt("n:"); for (let сч = 0; сч < n; сч++) м.prompt((function (от, до) { return Math.floor(от + Math.random() * (до + 1 - от)); })(-15, 10)); alert(м.join("; "));
2) javascript:var a = [], n = prompt("n:"); for (let сч = 0; сч < n; сч++) a.prompt((function (от, до) { return Math.floor(от + Math.random() * (до + 1 - от)); })(5, 20));