Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.
1)дано:
К=30*50*7=1050 символов
I=2625байт
Найти N
Решение : I=2625*8=21000бит
N =2^i; I=K*i ; i= I/K ; i= 21000/1050=20бит
N=2^20 = 1048576 символов
построим таблицу истинности данного выражения
поскольку переменных две, то в таблице будет 4 строки
столбцов будет тоже два (2 переменные +2 операции)
А В НЕ(В) А ИЛИ НЕ (В)
0 0 1 1
0 1 0 0
1 0 1 1
1 1 0 1
ОТВЕТ количество наборов, при которых логическое выражение
А ИЛИ НЕ (В) будет истинным равно 3.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15
A = int(input())
if 2 <= a <= 5:
a += 10
elif 7 <= a <= 40:
a -= 100
elif a <= 0 or a > 3000:
a *= 3
else:
a = 0
print(a)