Регистрация
sanya3344
01.05.2020 22:50
Информатика
Есть ответ 👍

Написать программу, которая проверяет число на простоту. На вход программе дается целое число, в консоль выводится ответ на вопрос,
является ли число простым.

185
462
Посмотреть ответы 1

Ответы на вопрос:

MAN1337228
MAN1337228
4,8(50 оценок)

uses crt; var  a: array [1..1000,1..1000] of integer;   i,j,max,min,k: integer; begin  clrscr; randomize;   write ('введи количество столбцов/строк матрицы: '); read(k);   for i: =1 to k do  begin    for j: =1 to k do    begin      a[i,j]: =random(100)-50;       write (a[i,j]: 4);     end;     writeln;   end;   max: =1; min: =1;   for i: =2 to k do    if a[i,i]> max then max: =a[i,i]

      else        if a[i,i]< min then min: =a[i,i];   writeln('наибольшее значение главной диагонали: ',max);   write('наименьшее значение главной диагонали: ',min); end.

Популярно: Информатика