Var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
//так и не осознала как вводить функции с клавиатуры. Спрошу у учителя.
var b1,b2,b:boolean;
function imp(a, b : boolean) : boolean;
begin
imp:=(not a) or b;
end;
begin;
writeln('Implication');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,imp(b1,b2):7);
writeln('not (x) or y');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,((not b1) or b2):7);
For b1:=false to true do
For b2:=false to true do
if imp(b1,b2)<>((not b1) or b2) then
begin;
writeln('Не эквивалентны');
exit;
end;
writeln('Эквивалентны');
<span>end.</span>
var
v,a,b,c: real;
begin
writeln ('введи длину, ширину и высоту коробки');
read (a,b,c);
v:=a*b*c;
writeln ('объем коробки равен', v);
end.
1) 1Килобайт=1024 байт
2) 1024/2=512
3)512*8=4096(бит)
Ответ:
В 1964 г. появился первый в мире монитор для компьютеров – IBM 2250. Монохромный дисплей размером 12х12 дюймов имел разрешение 1024х1024 точек и поддерживал частоту обновления экрана в 40 Hz.
Объяснение: