Язык программирования: Паскаль
var
a, b, c, min : integer;
begin
readln (a);
readln (b);
readln (c);
min := a;
if b < min then
min := b;
if c < min then
min := c;
writeln (min);
end.
0
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Я так понял, у вас "экран смерти", и предполагаю, что это Windows 10.
<u>Попробуйте сделать вот эти действия:</u>
1. Нажмите F8
2. Затем, у вас появится в <em>"безопасном режиме"</em> мн-во вариантов, нам нужно <em>"Отключить проверку драйверов"</em> – скорее всего это 7 пункт, выбираете его.
3. После этого, перезагрузка должна пройти успешно.
А лучше, если не знаете, что делать, то нести своё устройство(а) в <u>Сервисный Центр!!!</u>
#include <iostream>
int main() {
long n;
std::cin >> n;
long power = 10;
for (long i = 1; i <= n; i++) {
if (power <= i) {
power *= 10;
}
if (i * i % power == i) {
std::cout << i << " ";
}
}
return 0;
}