Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
a[i]:=random(101)-50;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
или
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
Readln(a[i]);
clrscr;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
Если ты вводишь только количество суток, то алгоритм будет такой:
1) количество суток умножить на 24.
2) приписываешь нули вместо минут и секунд
На наступний слайд, у іншу програму, у інший файл
Вместо переменных A и B нужно подставить нули и единицы, всего в данном случае возможно 4 различных комбинации (A=0 и B=0; A=0 и B=1; A=1 и B=0; A=1 и B=1).
Для простоты понимания знак «ᴠ» можно представить как знак сложения «+», знак «&» как знак умножения «*», а черточка над знаком обозначает отрицание, т.е. противоположное значение ( отрицание нуля равно единице, отрицание единицы равно нулю).
Таким образом можно преобразовать выражение. Например, под буквой Б вместо A&(AvB) записать A*(A+B) и начать подставлять нули и единицы и заполнять таблицу:
A B AvB ( или A+B) A&(AvB) ( или A*(A+B) )
0 0 0 0
0 1 1 0
1 0 1 1
1 1 1 1
Под остальными буквами порядок действий проставлен правильно и действовать нужно по аналогии.