Решить , ! даны целые положительные числа m и n. сформировать целочисленную матрицу размера m х n, у которой все элементы j-го столбца имеют значение 5•j (j = 1, …, n). вывести матрицу в общепринятом виде.
Var a:array[1..100,1..100] of integer; m,n,i,j:integer; begin read(m,n); for i:=1 to m do for j:=1 to n do a[i,j]:=j*5; for i:=1 to m do begin writeln; for j:=1 to n do write(a[i,j]:4); end; end.
Если вынуть 94 конфет, то будут конфеты всех 3 видов.Пусть у нас по n конфет каждого вида.Тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. И только, вынув (2n+1)-ю конфету, мы получим все три.2n+1 = 942n = 93.Значит, конфет одного и другого вида по [93/2] = 46,а конфет третьего вида 47.Пусть ирисок и леденцов по 46, а шоколадных 47.Вынув 46 ирисок и 46 леденцов (92 конфет), мы получим 2 вида.Вынув 46 ирисок и 47 шоколадных (93), мы получим 2 вида.Вынув 46 леденцов и 47 шоколадных (93), мы получим 2 вида.И только вынув 94-ую (в 1 случае 93 и 94), мы получим 3 вида.ответ: всего конфет было 46 + 46 + 47 = 139.
Если, например, Х = 5 сек, то за 5 сек Флэш выпустит 2 молнии, а за 10 сек - 3. То есть количество молний A = int(Y : X) + 1, где Y = N*60 + M - количество отведенного времени в секундах. Вся суть программы: X = Input (input.txt, X); // Принимаем секунды из файла, пишем в переменную X N = Input (input.txt, N); // Принимаем минуты из файла, пишем в переменную N M = Input (input.txt, M); // Принимаем секунды из файла, пишем в переменную M Y = N*60 + M; // Вычисляем отведенное время в секундах A = int(Y : X) + 1; // Вычисляем количество молний Output (A, output.txt); // Выводим его в файл.
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
end.
Как то так.