Дано Шины адреса 36
Процессор 80386
Решения
80386 * 36 = <span>2893896</span>
Program rost;
var a: integer;
begin
readln (a);
if a<=180 then
Writeln('Не очень высокий')
else
Writeln('Высокий');
<span> end.</span>
Var a, b: real;
begin
a:=4;
b:=4;
a:=2*a+3*b;
b:=a/2*b;
write(b);
end.
Ответ
40
810 = 10002,
910 = 10012,
1010 = 10102,
1110 = 10112.
Из чисел 9 и 10 выбираем число 10, поскольку оно является наибольшим.
<em><u>Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.</u></em>
{uses Crt;}
const
n=80;
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string[80];
i:integer;
begin
{ClrScr;}
Writeln('Введите текст (учитываются только 80 первых символов)');
Readln(s);
for i:=1 to n do
if s[i] in digits then Write(s[i]);
Writeln;
for i:=1 to n do
if not(s[i] in digits) then Write(s[i]);
Writeln;
{ReadKey}
end.
<em><u>Тестовое решение:</u></em>
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км