Скажите, , эти программы правильные? (название проги - номер ))program four; uses crt; var a, b, c, d, kop, rub: real; begin clrscr; writeln('sena 1 kg fruktov'); readln(a); b: =0; c: =0; d: =1000; repeat c: =c+b; writeln('ves fructa ne bolee 150 g'); чreadln(b); d: =d-b; until d< 0; c: =c/1000; a: =a*c; rub: =trunc(a); kop: =(frac(a))*100; writeln(rub: 4: 0,' rub ',kop: 4: 0,' kop'); readkey; end.​program two; uses crt; var a, b, c, d, n: integer; begin clrscr; readln(a); readln(n); c: =0; a: =a*100; while (a> 0) do begin a: =a-(n*2); c: =c+1; end; d: =c div 24; writeln('vsego chasov = ', c); writeln('vsego dney = ', d); readkey; end.program three; uses crt; var a,b,c,chislo1,chislo2,chislo3,max: integer; function summa(n: integer): integer; var s: integer; begin s: =0; n: =abs(n); while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; summa: =s; end; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); chislo1: =summa(a); chislo2: =summa(b); chislo3: =summa(c); writeln('chislo 1 = ',chislo1); writeln('chislo 2 = ',chislo2); writeln('chislo 3 = ',chislo3); if chislo1> chislo2 then max: =chislo1 else max: =chislo2; if chislo3> max then max: =chislo3; writeln('max = ',max); readkey; end.program five; uses crt; var b, c, i, j : integer; begin clrscr; c: =0; for i : =1 to 7 do begin for j : =1 to 24 do begin readln(b); if (b< 754)or(b> 771) then c: =c+1; end; end; writeln('davlenie ne sootvetstvovalo norme ',c,' chasov za nedelu'); readkey; end.

#include <iostream>

using namespace std;

int main()

{

int a, b ,c ,x, y, z, t;

cin >> x >> y >> z >> t;

if ((x + y + z + t) / 3 == x)

{

 cout << x-y <<" "<< x-z <<" "<< x-t;

}

if ((x + y + z + t) / 3 == y)

{

 cout << y-x <<" "<< y-z << " "<<y-t;

}

if ((x + y + z + t) / 3 == z)

{

 cout << z-y <<" "<< z-x <<" "<< z-t;

}

if ((x + y + z + t) / 3 == t)

{

 cout << t-y <<" "<< t-z <<" "<< t-x;

}

return 0;

}

Объяснение:

Программа 1:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 max_num = 100; {Максимальная величина в массиве}

var

 N : integer; {Размерность массива}

 Massiv : array of array of integer;

 i, j : integer; {Счетчики циклов}

 p : int64; {Произведение элементов}

begin

Randomize;

write('Введите число - размер массива N: ');

readln(N);

{Установка размера массива}

SetLength(Massiv, N, N);

{Формирование случайного двумерного массива с элементами от 1 до 100}

for i := 0 to N-1 do begin

 for j := 0 to N-1 do begin

  Massiv[i, j] := Round(Random * max_num) + 1;

  write(Massiv[i,j]:4)

 end;

 writeln

end;

p := 1; {Инициализация переменной для подсчета произведения}

{Собственно, сам подсчёт.}

{Для главной диагонали особенность индексов, где i = j}

{Поэтому достаточно одного цикла}

for i := 0 to N-1 do

 p := p * Massiv[i, i];

writeln('Произведение р = ', p)

end.

Программа 2:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 max_num = 100; {Максимальная величина в массиве}

var

 N : integer; {Размерность массива}

 Massiv : array of array of integer;

 i, j : integer; {Счетчики циклов}

 c, m, k : integer; {Подсчёт чётных элементов}

begin

Randomize;

write('Введите число - размер массива N: ');

readln(N);

{Установка размера массива}

SetLength(Massiv, N, N);

{Формирование случайного двумерного массива с элементами от 1 до 100}

for i := 0 to N-1 do begin

 for j := 0 to N-1 do begin

  Massiv[i, j] := Round(Random * max_num) + 1;

  write(Massiv[i,j]:4)

 end;

 writeln

end;

{Обнуление счётчиков}

m := 0; k := 0;

for i := 0 to N-1 do begin

 {Подсчёт чётных в строке i}

 c := 0;

 for j := 0 to N-1 do

  if (Massiv[i, j] mod 2 = 0) then Inc(c);

 {Если чётных больше, чем в предыдущих строках, то}

 if (c > m ) then begin

  {запоминаем номер строки в переменной k}

  k := i;

  {запоминаем текущее количество чётных}

  m := c

 end

end;

writeln('Чётных чисел больше в строке ', k,'. Их - ', m)

end.