Var n, s, d: integer; begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Нужно переделать программу в

Question

Информатика: Var n, s, d: integer; begin readln(d); n := 0; s := 0; while s = 365 do begin s := s + d; n := n + 5 end; write(n) end. Нужно переделать программу в

Luna013 · Accepted Answer

Int mass1[n], mass2[m];
int min = 0, buff = 0, index;

//сначала находим min элемент
for (int i = 1; i < n; i++)
{
if (mass1[i - 1] > mass1[i])
{
min = mass1[i];
index = i;
}
}

//меняем их местами
buff = mass1[0];
mass1[0] = min;
mass1[index] = buff;

//ищем min во втором массиве
for (int i = 1; i < n; i++)
{
if (mass2[i - 1] > mass2[i])
{
min = mass2[i];
index = i;
}
}

//меняем их местами
buff = mass2[0];
mass2[0] = min;
mass2[index] = buff;

ну а дальше с библиотеками и выводом я думаю сам додумаешь)

Var n, s, d: integer; begin readln(d); n := 0; s := 0; while s <= 365 do begin s := s + d; n := n + 5 end; write(n) end. Нужно переделать программу в

MOGZ ответил

Var n, s, d: integer; begin
readln(d);
n := 0;
s := 0;
while s <= 365 do begin
s := s + d;
n := n + 5
end;
write(n)
end.

Нужно переделать программу в