Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
Компьютеры подразделяются на ЭВМ компьютеры суперкомпьютеры ноутбуки нетбуки
ЭВМ-электронная вычислительная машина
Компьютеры-обычные компьютеры
Суперкомпьютеры-превосходящие по всем данным обычные компьютеры
Ноутбуки-компьютер меньшего размера
Нетбуки-ноутбуки меньшего размера уступающие им по данным
Sub Alg_1()
xN = -5: xK = 5: h = 0.1
x = xN: i = 1
Do While x <= xK
y = 3 * x ^ 2 - 6 * x + 5
Cells(i, 1) = x: Cells(i, 2) = y
x = x + h: i = i + 1
Loop
End Sub
Во вложении файл с рабочей книгой MS Excel 2003. Макрос на листе 1.
<u>Теперь о Вашей ошибке</u>
<span>Dim xN, xK, x As Integer
Dim y, h As Single
xN = -5
...
h = 0.1
x = xN
...
x = x + h</span>
Такое описание означает, что xN, xK будут типа Variant, х - типа Integer.
y тоже будет типа Variant, h - типа Single.
При выполнении опeратора x=x+h целочисленное x сначала увеличится на 0.1, а затем дробная часть будет отброшена. Поэтому х постоянно будет равен xN и цикл станет бесконечным.
Ответ:
60
Объяснение:
1)l=vt(где i-размер,v-скорость,t-время)
пропорция:
(160*1024*8) x
------------------ = ---------- ==>(мы все переводим в бит,x-то,что находим)
2048 768
**************************************************************************************************
(160*8) x
---------- = ------------ (1024 сократили с 2048,поэтому внизу 2)
2 768
**************************************************************************************************
160*4 x
--------- = ------------ (2 сократили с 8)
1 768
***********************************************************************************************
2)x=160*4*768 бит
3)160*4*768 160*1*768 80*1*768
---------------- = ---------------- = ------------------ =60 кбайт
8*1024 2*1024 1024
(цифра 8-перевод из бит в байты,1024 из байтов в килобайты)
*************************************************************************************************