VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Величина y прямо пропорциональна величине x, значит у=кх, 6,4=4*1,6, к=4
<span>x: 0,8 1,6 .... 15 2,4
y : 3,2... 6,4 60 ..... 9,6
</span>
Для передачи сообщения используется набор,состоящий только из десятичных цифр(0,1,2,3,4,5,6,7,8,9). Определите минимально возмож
оксана одинцова [7]
Цифр 10 значит минимум нужно 2^4=16 комбинаций из 4 бит.
Ответ - 4 бит
var
x, y, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.
Место подключения к компьютеру внешних устройств, либо канал доступа извне называется Порт