датчик касания используется для измерения, передачи, преобразования, хранения и регистрации информации о состоянии объекта измерений. датчики широко используются для систем автоматизированного .
объяснение:
Спасибо
Ответ дал: Гость
program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write ('введите инверсию p-'); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write ('ламп горит -', s); readlnend.
Ответ дал: Гость
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
Популярные вопросы