Ответ:
var a: integer;
x:real;
begin
a:=5;
x:=0.75;
while x <= 1.5 do
begin
writeln('x = ',x,' y = ',a*sqrt(x):0:3);
x:=x+0.5;
end
end.
Насчет третьего - под б) нетривиальный метод(подстановка), но я уверен, что он правильный.
Program OddNumeric;
var
n, i: integer;
a: array [1..3] of byte;
b: boolean;
begin
Write('Введите трехзначное число: ');
Readln(n);
a[1]:=n div 100; {1 цифра сотен}
a[2]:=(n div 10) mod 10; {2 цифра десятков}
a[3]:=n mod 10; {3 цифра количество единиц}
b:=false;
for i:=1 to 3 do
begin
if (a[i] mod 2)=0 then
b:=true;
end;
if b then
Writeln('В этом числе есть четные цифры')
else
Writeln('В этом числе нет четных цифр');
end.
1/4 Кб = (1×1024)/4 байт = (1×1024×8)/4 бит = <em>2048 бит</em>
Для справки:
1 Кб = 1024 байт
1 байт = 8 бит
Var s: string;
begin
s := 'Криминалистика';
for var i:=1 to 8 do write(s[i]);
writeln();
for var i:=4 to 7 do write(s[i]);
writeln();
for var i:=8 to 11 do write(s[i]);
end.