задается срок выполнения цехом плана (количество дней) составить программу анализирующую реальное время выполнения плана и печатающую в результате сообщения: "план выполнен согласно норме", "план выполнен до " или "план выполнен позже срока"
Const nn=100; { максимальное значение n } var i,n,k,s:integer; a:array[1..nn] of integer; begin Write('Укажите натуральное число n: '); Read(n); Randomize; k:=0; s:=0; Writeln('Сформированная последовательность'); for i:=1 to n do begin a[i]:=Random(99)+1; { случайное число на интервале [1;99] } Write(a[i]:3); if (a[i] mod 5=0) and (a[i] mod 7 <>0) then begin Inc(k); s:=s+a[i] end; end; Writeln; Writeln('Количество чисел, кратных пяти: ',k); Writeln('их сумма равна ',s) end.
nn=100; { максимальное значение n }
var
i,n,k,s:integer;
a:array[1..nn] of integer;
begin
Write('Укажите натуральное число n: '); Read(n);
Randomize;
k:=0; s:=0;
Writeln('Сформированная последовательность');
for i:=1 to n do begin
a[i]:=Random(99)+1; { случайное число на интервале [1;99] }
Write(a[i]:3);
if (a[i] mod 5=0) and (a[i] mod 7 <>0) then
begin Inc(k); s:=s+a[i] end;
end;
Writeln;
Writeln('Количество чисел, кратных пяти: ',k);
Writeln('их сумма равна ',s)
end.
Тестовое решение:
Укажите натуральное число n: 39
Сформированная последовательность
15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15 5 58 46 68 57 72 90
Количество чисел, кратных пяти: 9
их сумма равна 355
#include "stdafx.h"
#include <iostream>
#include <string>
#include <fstream>
#include <windows.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int n, k, chastnoe, ostatok;
cout << "Введите делимое N = ";
cin >> n;
cout << "Введите делитель K = ";
cin >> k;
if (k != 0)
{
int tmp = n;
chastnoe = ostatok = 0;
while (tmp >= k)
{
tmp -= k;
chastnoe++;
}
ostatok = tmp;
}
cout << "Частное от деления: " << chastnoe << endl;
cout << "Остаток от деления: " << ostatok << endl;
return 0;
}
Объяснение: