Var
a, b, c, d, e, n: integer;
begin
n := 0;
for a := 1 to 9 do
for b := 0 to 9 do
for c := 1 to 9 do
for d := 0 to 9 do
for e := 0 to 9 do
if (10 * a + b) * c = (10 * d + e) then n := n + 1;
Writeln(n)
end.
Тестовое решение:
<span>196</span>
Переводим размер в дюймы. 1 дюйм возмем примерно за 2.5 см.
Тогда
10/2.5=4
15/2.5=6
Если в каждом дюйме 600 пикселей, то:
4*600=2400
6*600=3600
Изображение в пикселях: 2400*3600=8640000 пикселей.
На каждый пиксель по 3 байта и того у нас 25920000 (байт) = 24,72 (мегабайт)
Начало и конец программы в овале, действия в квадратах. Программа совершается последовательно
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.