using System;
namespace ConsoleApp3
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите N и K");
int N = Int32.Parse(Console.ReadLine());
int K = Int32.Parse(Console.ReadLine());
int H = 0;
int ost = 0;
do
{
N -= K;
H+=1;
} while (N >= K);
ost = N;
Console.WriteLine(H + " целых частей");
Console.WriteLine(ost + " остаток");
}
}
}
Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
<span>writeln('Ввести массив из ',n,' целых чисел');
</span>for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i],' ',a[j],' ',a[k],',a[l] );
end.
Цифровые носители информации - компакт-диски, дискета, карты памяти
Ответ:
Графики в порядке от 1 до 4