#include <iostream>
bool isSelfDivisible(int n) {
int k = n;
while (k > 0) {
if (k % 10 == 0 || n % (k % 10) != 0)
return false;
k /= 10;
}
return true;
}
int main() {
int L, K;
std::cin >> L >> K;
for (int i = L; i <= K; i++)
if (isSelfDivisible(i))
std::cout << i << std::endl;
return 0;
}
Пример ввода:
122 128
Пример вывода:
122
124
126
128
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
яблоня-ствол, корень,ветка-яблоко-семечко
адрес: яблоня, ветка,яблоко.
1. 3 мбайт = 3 * 1024 = 3072 кбайт
2. 3072 кбайт = 3072 * 8 = 24576 кбит
3. s = v * t
t = s / v
t = 24576 / 128
t = 192 секунды