1) На паскале: если число целое, то
var a : integer;
Label Transfer;
begin
readln(a);
Last := a mod 10;
N := 999
for counter = 1 To N Do
if ((a div 10) < 10) and ((a div 10) > 0)
begin
First := a div 10;
Goto Transfer;
else
a := a div 10;
Transfer:
if (Last mod First = 0) then written('True')
else written('False');
readln();
end.
Если что-то не понятно - в лс или в комменты сюда
Var
n, i: integer;
begin
n := 0;
while (n <= 1) or (n > 10) do
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
end;
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
без проверки
var
n, i: integer;
begin
write('Введите n в диапазоне от 2 до 10 = ');
readln(n);
for i := 1 to 9 do
writeln(n, ' * ', i, ' = ', n * i);
end.
Поля «год издания» и «рейтинг» необходимо превратить в
числа. Простейший способ для этого: вставить в пустую ячейку 1/ копировать ее/
выделить столбей цифр/специальная вставка/умножить.
<span>Если строк много, то лучше сверху оставить несколько штук и
снизу, остальные скрыть. Когда необходимо можно отобразить. Сами формулы видны
в строке формул.</span>