Ответ: а=9
Решение:
1) b=2 a=3, подставим: b=9+3*2=15
2) теперь у b новое значение, а не изменилось: b=15 a=3, подставим: a=15/5*3=9
3) у a теперь новое значение: а=9
Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
<span>Если длина текста 160 СИМВОЛОВ, то информационный объём 160 байт.</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