For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
1) "Забудьте" оба наушника на телефоне, т.к. сотрите из подключенных ранее устройств.
2) Выключите оба наушника
3) Включите ПРАВЫЙ наушник
4) Подключите его к телефону, чтобы он его запомнил
5) Включите левый наушник. Если он всё ещё не синхронизируется с правым, то снова отключите пару.
6) Теперь попробуйте включить оба наушника. Правый, по старой памяти свяжется со смартфоном, а левый с правым.
PASCAL
program aa;
var a : integer;
begin
writeln('Введите день недели');
Read(a);
If (a < 1) or (a>7) then writeln('Такого дня не существует');
If (a > 0) and (a<6) then writeln('Рабочий день');
If a=6 then writeln('Суббота');
If a=7 then writeln('Воскресенье');
end.
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
strin s = "no";
for(int i = 0; i < n; i++) {
int number;
cin >> number;
if(number == 0) s = "yes";
}
cout << s << endl;
}