Составить программу в pascalabc день программиста традиционно отмечается в беларуси в 256-й день года. число 256 (28 ) выбрано потому, что оно представляет количество различных целых чисел, которые можно выразить с одного восьмиразрядного байта. а день веб-программиста ежегодно празднуют 4 апреля. эта дата также выбрана не случайно: цифры 4.04 напоминают по своему написанию ошибку 404 («страница не найдена»), имеющую прямое отношение к работе веб-мастеров. в нынешнем году, кстати, день веб-программиста выпадает на вторник, а день программиста — на среду. в ответе укажите, сколько раз за ближайшие 100 лет оба праздника выпадут на один и тот же день недели.

👇

Ответ:

abaltabaeva03

16.05.2022

Const
names:array[1..7] of string=('пн','вт','ср','чт','пт','сб','вс');
var k,i,n0,np,nw,year,dw:integer;
begin
k:=0;
n0:=6; //01.01.2000 - суббота
for i:=2000 to 2100 do
begin
if (i mod 400=0)or(i mod 4=0)and(i mod 100<>0)
then begin year:=366; dw:=31+29+31+3; end
else begin year:=365; dw:=31+28+31+3; end;
np:=(255+n0-1) mod 7+1;
nw:=(dw+n0-1) mod 7+1;
n0:=(year+n0-1) mod 7+1;
if np=nw then
begin writeln(i,' - ',names[np]); k:=k+1; end;
end;
writeln('k = ',k);
end.

Результат:
2000 - вт
2004 - вс
2008 - пт
...
2092 - пт
2096 - ср
k = 25

PS. Високосные годы, однако )

4,4(32 оценок)

Открыть все ответы

Ответ:

mashakesea03

16.05.2022

Const
m = 5;
n = 8;

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.

Тестовое решение:

Введите числа a,b: 4 7

Исходный массив
-16    3   26    4   46   -6 -31   21
-35 -34   46   42   15 -26   -9    4
-19 -47    8 -48   13   14   42 -46
   41 -10   13   45 -20   15   13 -44
   18 -11   23 -30   44 -36   -8 -42
Количество элементов матрицы, кратных 4
    1    0    1    2    2    1    1    2
Количество элементов матрицы, кратных 7
    1    0    0    1    0    1    1    2

Паскаль. , дан двумерный массив целых чисел. в каждом столбце найти количество элементов кратных a и

Паскаль. , дан двумерный массив целых чисел. в каждом столбце найти количество элементов кратных a и

4,7(52 оценок)

Ответ:

noniqname

16.05.2022

Const
n = 50;

var
a: array[1..n] of integer;

procedure ShiftRight(ip: integer);
// сдвигает к началу массива все элементы. расположенные за ip
var
i: integer;
begin
for i := ip to n - 1 do a[i] := a[i + 1];
a[n] := -32768
end;

var
i, j, mx, px: integer;

begin
Randomize;
writeln('Исходный массив');
mx := -100;
px := 0;
for i := 1 to n do
begin
    a[i] := Random(30) - 15;
    write(a[i]:4);
    if mx < a[i] then begin
      mx := a[i];
      px := i
    end
end;
writeln;
writeln('Результирующий массив');
if px = n then
    for i := 1 to n - 1 do writeln(a[i]:4)
else
begin
    for i := 1 to px - 1 do write(a[i]:4);
    ShiftRight(px);
    i := px;
    while (i <= n) and (a[i] <> -32768) do
      if a[i] < mx then
      begin
        write(a[i]:4);
        i := i + 1
      end
      else ShiftRight(i)
end;
writeln
end.

Тестовый пример:

Исходный массив
   1   2 -13   0 -2 14 -15   4 -6 -3 14   4 -10 -7 -5 11 -1 -10   9 -10 -12 14   4 -9 -5 -14   9 -9   9   5   3 -10 -15 -3   4 -14 -10   7   1 -11 -8 -15   5 -6   9 -3   9 -14 -3   1
Результирующий массив
   1   2 -13   0 -2 -15   4 -6 -3   4 -10 -7 -5 11 -1 -10   9 -10 -12   4 -9 -5 -14   9 -9   9   5   3 -10 -15 -3   4 -14 -10   7   1 -11 -8 -15   5 -6   9 -3   9 -14 -3   1

4,8(84 оценок)

Это интересно:

Финансы-и-бизнес

18.09.2022

Как вычислить период оборота запасов: практическое руководство...

Хобби-и-рукоделие

16.01.2022

Угловые закладки своими руками: простой и креативный способ сохранить страницу...

Здоровье

17.12.2021

Как получить больше витамина А?...

Кулинария-и-гостеприимство