Имеется трёхзначное число, цифры которого различны. после зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного. найдите n-первых таких трёхзначных чисел. (n=70)
var x: array[1..m, 1..n] of integer; i, j, a, b, k: integer;
begin write('Введите числа a,b: '); readln(a, b); Randomize; writeln(#13#10, 'Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin x[i, j] := Random(100) - 50; write(x[i, j]:5) end; writeln end; writeln('Количество элементов матрицы, кратных ', a); for j := 1 to n do begin k := 0; for i := 1 to m do if x[i, j] mod a = 0 then k := k + 1; write(k:5) end; writeln; writeln('Количество элементов матрицы, кратных ', b); for j := 1 to n do begin k := 0; for i := 1 to m do if x[i, j] mod b = 0 then k := k + 1; write(k:5) end; writeln end.
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h:real; Write('Введите a,b,h: '); Read(a,b,h); var n:=Trunc((b-a)/h); for var i:=0 to n do begin var x:=a+i*h; var y:=cos(x)*sqrt(x); Writeln(x:6:3,y:15:5) end end.
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.