М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
malinka149
malinka149
16.03.2022 00:50 •  Информатика

ИНФОРМАТИКА поставлю каждому за верный ответ коронку и ❤️ поставлю​


ИНФОРМАТИКА поставлю каждому за верный ответ коронку и ❤️ поставлю​

👇
Открыть все ответы
Ответ:
syromyatnikovа
syromyatnikovа
16.03.2022
Program lol (input, output);
var a, n, b, i, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
end;
b:=b-1;
end;
writeln (c);
end.

program lol (input, output);
var I, a:integer;
begin
a:=0;
for I:=31 to 55 do
begin
if (i mod 2) <> 0 then
a:=a+I;
end;
writeln (a);
end.


var a, b, c, s, I:integer;
begin
read (a, b);
if a<b then
begin
c:=a;
a:=b;
b:=c;
end;
c:=a;
while c > 0 do
begin
while c >= b do
begin
c:=a-b;
if c > 0 then
s:=c;
a:=c;
end;
a:=b;
b:=c;
end;
writeln (s);
end.

program lol (input, output);
var m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do
begin
if m > n then
begin
m := m - n
end
else
begin
n := n - m
end
end;
writeln(prod div m)
end.

program lol (input, output);
var a, b, c, e:Integer;
d:real;
begin
read (a, b);
d:=a/b;
c:=trunc(d);
e:=a-(b*c);
writeln ('Частное: ',c);
writeln ('Остаток: ',e);
end.
4,4(64 оценок)
Ответ:
romashka1899
romashka1899
16.03.2022
Пусть первые две цифры равны a, вторые две равны b (1 ≤ a ≤ 5 и 0 ≤ b ≤ 5). Тогда искомое число - aabb_{6}. Переведем его в десятичную систему счисления - aabb_{6} = 6^{3} * a + 6^{2} * a + 6 * b + b = 6^{2} * a * (6 + 1) + b * (6 + 1)
= 7 * (6^{2} * a + b)
Если число - квадрат, то, так как 7 * (6^{2} * a + b) делится на 7, то оно делится на 7^{2} ⇒ 6^{2} * a + b делится на 7.
Пусть a = 1. Тогда b тоже 1. a не равно b ⇒ противоречие.
Пусть a = 2. Тогда b = 3. Проверяем: 7 * (36 * 2^{2} + 3) = 1029. 1029 - не квадрат ⇒ не подходит.
Пусть a = 3. Тогда b = 5. Проверяем: 7 * (36 * 3^{2} + 5) = 2303. 2303 - не квадрат ⇒ не подходит.
Пусть a = 4. Тогда b = 5. Проверяем: 7 * (36 * 4^{2} + 5) = 4067. 4067 - не квадрат ⇒ не подходит.
Пусть a = 5. Тогда b = 3. Проверяем: 7 * (36 * 5^{2} + 3) = 6321. 6321 - не квадрат ⇒ не подходит.
Таким образом, получаем, что нет ни одного числа, которое удовлетворяет всем подсказкам.
4,4(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ