Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.
Вариантов всего 15+13+20+10+30+23+8+18=137:25=5.4
<span>program nomer;
var
N:integer;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end<span>.</span></span>
Ответ:
1. Имя qt. Элементов 19. Тип данных real (вещественные числа)
2. Значение 15, индекс 1
3. а: array [1..20] of integer
4. a[i]:=random (31)
5. 6, 9, 14, 21, 30
Объяснение:
1. 23-5+1=24-5=19
2. А[4]=15 А[1]=26
5.
a[1]=5+1*1=5+1=6
a[2]=5+2*2=5+4=9
a[3]=5+3*3=5+9=14
a[4]=5+4*4=5+16=21
a[5]=5+5*5=5+25=30
1) program znanija2;
var speed, A, X:integer;
time:real;
begin
readln(A);
readln(X);
speed:= A * 3;
time:= X / speed;
writeln(time);
end.
2)
program znanija3;
var P:integer;
tax, rest, wages, answer:real;
begin
read(P);
tax:=(P*70)/100;
rest:= P - tax;
wages:= (rest*70)/100;
answer:= wages / 8;
writeln(answer);
end.