Var n:longint;
s:string;
i, ch, neCh:integer;
begin
readln(n);
s:=intToStr(n);
i:=1;
while (i <= length(s)) do
begin
if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
else ch:=ch+1;
i:=i+1;
end;
if (ch > neCh) then writeln('Чётных чисел больше');
if (ch < neCh) then writeln('Нечётных чисел больше');
if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.
ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 18 c
v = 256000 бит/с
I - ?
Решение:
бит
4608000.0 бит = 576000.0 байт = 562.5 Кбайт
Var a: integer;
begin
//пред условие
read(a);
while a <> 0 do
begin
writeln('*');
read(a);
end;
end.
=====================
var a: integer;
begin
//пост условие
repeat
writeln('*');
read(a);
until a=0
end.
1) 1 поколение: эвм представляет собой огромный шкаф
2 поколение: эвм выполнена в виде однотипных стоек
3 поколение: эвм выполнена в виде однотипных стоек
4 поколение: компактные эвм, например ноутбуки, персональные компьютеры
2) 1: десятки
2: тысячи
3: десятки тысяч
4: миллионы
3) 1: 10-20 тыс. операций в секунду
2: 100-1000 тыс. операций в секунду
3: 1-10 млн. операций в секунду
4: 10-100 млн. операций в секунду
4)1:2 кбайта
2:2-32 кбайта
3:64 кбайта
4:2-5 мбайт
5)1:МЭСМ, БЭСМ-2
2:БЭСМ-6, Минск-2
3:IBM-360, IBM-370, ЕС ЭВМ, СМ ЭВМ
4:IBM-PC, Apple
6)1:Перфокарта, перфолента
2:Магнитная лента
3:Диск
4:Гибкий и лазерный диски