Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Ответ:
program Purchase;
var
ik, it: Integer;
ck, ct: Double;
begin
Write ('Количество карандашей и стоимость: ');
ReadLn (ik, ck);
Write ('Количество тетрадей и стоимость: ');
ReadLn (it, ct);
WriteLn ('Всего: ', ik * ck + it * ct :10 :2);
ReadLn;
end.
2кбайта = 2048 байт => 1символов = 1 байт
1 байт = 8 бит
2 ^ 8 = 256
Var
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
<span>end.</span>
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель