Var a,n,x,m,max: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
Ответ:
1)
1 Кбайт (килобайт) = 210 байт = 1024 байт
1 Мбайт (мегабайт) = 220 байт = 1024 Кбайт
1 Гбайт (гигабайт) = 230 байт = 1024 Мбайт
2)
минимальная единица измерения информации это Бит
3)
максимальная единица измерения информации это йобибайт
4)
цепочка из 8 нулей называется байт
5)
слово килобайт содержит 1 байт
6)
слово байт содержит 4 байта потому что 1 буква-1байт
<span>Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 </span>// проверка, х больше от 0?<span>
then
y := y * b // если да, то исполняется это
else </span><span>
if x = 0 then </span>//если нет, то это(тут опять же проверка, х равно 0?)<span>
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы</span>
If(a[i] div 100 = 0) and (a[i] div 10 <> 0) then s:= s+a[i];