Введите четырехзначное число и проверmnt есть ли в нем цифра 7

Var     n,x: integer;     s: string; begin s: ='нет'; readln(n); while n> 0 do   begin   x: =n mod 10;   if x=7 then s: ='да';   n: =n div 10;   end; writeln(s); end.

Компьютеры можно соединить по топологии кольцо:     выход одного пк соединяется со входом другого пкможно соединить полной связью: каждый компьютер связан с каждым компьютеромможно соединить по топологии звезда: каждый компьютер подсоединен к концетратору (хабу) - такому промежуточному элементу, который передает информацию нужному компьютерусамый короткий из данных для передачи между двумя пользователями- полная связь, но у такой топологии много минусов, он громоздкий и требует большее количество портов у компьютера

1) #include < iostream> using namespace std; int main() {     int max = int32_min;   for(int i = 0; i < 5; i++) {     int number;     cin > > number;     if(number % 2 == 0 & & number > max) max = number;   }   if(max ! = int32_min) cout < < max < < endl;   else cout < < "no such numbers" < < endl; } 2)   #include < iostream> using namespace std; int main() {   int s = 0;   for(int i = 0; i < 5; i++) {     int number;     cin > > number;     if(number % 2 == 0) s+=number;   }   cout < < s < < endl; } язык c++