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

👇

Увидеть ответ

Ответ:

ogxo

20.11.2020

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(4).Max());
end.

4,7(33 оценок)

Ответ:

Соломія2203

20.11.2020

uses crt;
var a1,a2,a3,a4,max: integer;
begin write('Введите четыре числа: ');
readln(a1,a2,a3,a4);
if a1 >= a2 then
max := a1 else
max := a2;
if a3 > max then
max := a3 ;
if a4 > max then
max:=a4;
writeln ('Максимальное число - : ', max);
readln
end.

4,6(87 оценок)

Открыть все ответы

Ответ:

Nutmi

20.11.2020

PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."

const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,SumDiag,k:integer;
p:real;

begin
Writeln('*** Исходная матрица ***');
Randomize;
SumDiag:=0;
for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      if i=j then SumDiag:=SumDiag+a[i,j];
      Write(a[i,j]:4)
      end;
    Writeln
    end;
for i:=1 to 4*n do Write('-');
Writeln;
Writeln('Сумма элементов на главной диагонали ',SumDiag);
p:=SumDiag/15;
k:=0;
for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<p then k:=k+1;
Writeln('Искомое количество элементов ',k)
end.

Пример
*** Исходная матрица ***
95 37 30 21 83 -99 48 -40 49 -19
-66 -82 88 -24 70 14 -88 11 60 14
-72 -80 90 25 68 23 91 66 -54 52
33 16 25 -72 85 58 -39 44   8 -29
   8 78 -79 51 50 -61 -13 -87 87 66
63 -45 94 -48 59 76 46 -94 53 -40
-90 81 -85 96 47 18 -8 61 -10 -87
-47 -33 -97 -10 -93 -51 98 -60 74 30
-63 78 79 -21 89 -21 21 -26 -31 -91
-88 -45 91 -51 -39 26 64 -75 -96 -67

Сумма элементов на главной диагонали -9
Искомое количество элементов 46

4,8(52 оценок)

Ответ:

керамбит1

20.11.2020

Для початку давайте розберемося в тому, що саме являє собою форматування диска, і чому після нього є реальна можливість відновити якщо не всі, то більшу частину даних. При первинному (або нізькорівневому ) форматуванні відбувається створення файлової таблиці, в яку система записує всі дані, необхідні для роботи. Коли запускається процес форматування диска, таблиця нікуди не дівається, а лише обнуляється. Стара інформація, яка перебувала в ній, не може відповідати розмірам таблиці, тому стає просто невидимою для системи. І якщо на диск не проводився запис нових даних, тоді відновити файли після форматування диска можна.

Слід враховувати і те, тип якого форматування ви використовували. Якщо було вибрано швидке форматування, тоді відбувається тільки очищення заголовків файлової системи, а от інформація з жорсткого диска нікуди не видаляється. На щастя, в більшості випадків використовують саме швидке форматування.

При повному форматуванні в кожному секторі жорсткого диска видаляється вся інформація, тому відновлення даних в такому випадку являє собою практично неможливу задачу.

Незважаючи на всі проблеми після форматування диска дані можна відновити. Справа в тому, що пошук даних після форматування по своєму процесу нічим не відрізняється від відновлення даних після їх видалення з комп'ютера. Правда, в силу того що потрібно відновлювати цілий диск, то операція ця займає чимало часу.

Для відновлення даних після форматування дуже важливо не записувати зверху ніяку інформацію. Створення нових папок і установка системи зводить ваші шанси на відновлення втраченої інформації до мінімуму. Зауважте, що після форматування операційні системи XP і Vista самі створюють деякі папки. Також після форматування диска, якщо є можливість, не перезавантажуєте комп'ютер, а просто вимкніть його.

Щоб відновити дані з диска, знадобиться інший комп'ютер, на який попередньо встановлюють спеціальну програму. Потім до комп'ютера підключають диск, який потрібно відновити, і запускають сканер. Після закінчення сканування диска, вам буде зрозуміло, що саме вдасться відновити, а що - ні.

Зверніть увагу на те, що для відновлення даних вам знадобиться комп'ютер, у якого обсяг диска перевищує ваш.

Ми розібралися з тим, як відновити файли після форматування, тепер же поговоримо про те, які програми можна використовувати для цього. Є маса безкоштовних і ліцензійних утиліт, які до вам впоратися з цим завданням. Таке зійде ???

4,8(80 оценок)

Это интересно:

Стиль-и-уход-за-собой

25.11.2021

Обвисание груди в молодом возрасте: как избежать...

Дом-и-сад

30.08.2022

Как освободить лезвие бритвы от ржавчины одним приемом?...

Здоровье

07.01.2021

Как набрать жир: эффективные способы набора массы тела...

Кулинария-и-гостеприимство