Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
Вот, держи
Будут вопросы, обращайся
1) ACI, PCY, SCCU, SATA. Каждая шина отвечает за свои устройства, поэтому их так много.
2) Характеристика шины: разрядность потока шины от 32 до 64, скорость передачи данных от 550 мб до 2 ГБ, температура от 20 до 30 градусов.
3) Жёсткий диск(ACI), клавиатура(USB), колонки(PCI), мышь(USB).
4) Их всего 4 вида: SATA, ATA-E, MicroUSB, FSI.
5) На сегодняшний день существует два современных интерфейса, это SQL и SATA. Они используются оба, потому что для каждого интерфейса нужны свои системные шины, к которым соответственно, подключаются контроллеры.
Формула несколько не совсем понятна, но если что функцию не трудно переделать
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.
