Ответ:
1) 1,5 Кбайт * 1024 = 1536 байт
1536 байт * 8 = 12288 бит
2) 4 Кбайт * 1024 = 4096 байт
4096 байт * 8 = 32768 бит
Объяснение:
1 Кбайт = 1024 байт
1 байт = 8 бит
//PascalABC.Net 3.2
begin
var output: text;
assign (output, readstring('Введите полный путь файла: '));
rewrite (output);
for var i:=1 to readinteger('n =') do writeln(2*i-20);
close (output);
end.
mod - работает с целыми числами и возвращает остаток от деления числа на 2. Любое четное число при делении на 2 имеет нулевой остаток, а любое нечётное имеет остаток, не равный нулю. Поэтому данная программа определяет четность числа. Возможен альтернативный вариант написания данной программы. Вот код:
<em>if odd(x) then</em><em> </em><em>writeln</em><em>(</em><em>'Это</em><em> нечётное</em><em> </em><em>число</em><em>')</em>
<em>else</em><em> </em><em>writeln</em><em>(</em><em>'Это</em><em> </em><em>ч</em><em>ё</em><em>тное</em><em> </em><em>число</em><em>');</em>
// PascalABC.NET 3.0, сборка 1111
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in alpha then Inc(na)
else
if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
if na<nd then Writeln('В тексте больше цифр')
else Writeln('В тексте букв и цифр поровну')
end.
<u><em>Тестовое решение:</em></u>
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв
Формула несколько не совсем понятна, но если что функцию не трудно переделать
var
x: real;
function Z(x: real): real;
begin
if x >= 1 then
Z := ln(x)
else
Z := 1;
end;
begin
x := 1;
writeln('z(', x, ') = ', z(x));
x := -1;
writeln('z(', x, ') = ', z(x));
write('x=');
readln(x);
writeln('z(', x, ') = ', z(1));
end.
