#include <bits/stdc++.h>
using namespace std;
int main() {
int n;
cin >> n;
++n; // Потому что нам нужно число, большее n
while (n % 19 != 0) ++n; // Увеличиваем n, пока оно не делится на 19
cout << n << endl;
return 0;
}
Var
i, n, s: longint;
d, k: integer;
begin
i := 3; k := 0;
repeat
s := 1;
for d := 2 TO Trunc(sqrt(i)) do
begin
n := (i div d);
if n * d = i then s := s + d + (i div d);
end;
if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));
if s = i then k := k + 1;
i := i + 1
until (k = 3);
Writeln('Третье совершенное число равно ',s)
end.
Тестовое решение:
Третье совершенное число равно 496
const
k=35; { k-е по порядку простое число }
var
i,j,n,m:integer;
begin
n:=1; i:=1;
repeat
j:=2;
m:=round(sqrt(i));
while (i mod j <>0) and (j<=m) do j:=j+1;
if j>m then n:=n+1;
i:=i+1
until (n=k);
Writeln(i-1)
end.
Тестовое решение:
137
var
n, d1, d2, d3: integer;
begin
Write('Введите трехзначное число ->');
Readln(n);
d1 := (n div 100);
d2 := ((n mod 100) div 10);
d3 := (n mod 10);
if (d1 * d2 * d3 in [100..999]) then
Writeln('Произведение цифр трехзначное')
else Writeln('Произведение цифр не трехзначное')
end.
Тестовое решение:
Введите трехзначное число ->518
Произведение цифр не трехзначное
*** В блок-схемах использованы обозначения:
sqrt(x) - квадратный корень от х;
\ - операция целочисленного деления
\% - операция остатка от целочисленного деления
Если Лена не покупала, значит вычеркиваем....
или Катя купила. значит Катя возможно купила
Маша тоже не купила.
получается купила Лена
О лене ничего не говорилось что она не покупала
ответ: ЛЕНА
K= 2 в степени а
a=Глубина цвета
M=количество точек по горизонтали
N=количество точек по вертикали
K=количество цветов
V=объём видеопамяти
K=2 =2 в 1 степени
a=1
V = M × N × a
V=800×480×1=384000 бит=48000 байт=46.875 кбайт
Ответ:
2.5 мбайт
Объяснение:
1280 * 1024 * 16 бит = 20 971 520 бит
20 971 520 бит / 8 = 2 621 440 байт
2 621 440 байт / 1024 = 2560 кбайт
2560 кбайт / 1024 = 2.5 мбайт