Перевести с паскаля на питон и проверить! var n,i,a,S: integer; begin readln(n); S := 0; for i := 1…

Представленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1). Определите значение переменной s после выполнения фрагмента.

Паскаль

n:=10;

s:=0;

for i:=1 to n-1 do begin

if a[i-1]>2*a[i] then begin

a[i]:=2*a[i];

s := s+ a[i];

end;

end;

ПЛИИИИИИИИИИИИИИИИИИЗ

1. Сколько бит требуется для кодирования 16,5 млн. цветов (точнее 16 777 216 цветов)?

2. Перевести десятеричное число 100 в шестнадцатеричную систему счисления.

3. Сравнить числа двоичное 1111 0000 и шестнадцатеричное 1 100.

4. А = 0, В = 1. В какой из ниже записанных формул результатом будет 1 (истина)?

А) ¬ В Б) А и В В) ¬ (А или В) Г) ¬ А или ¬ В

5. Как записывается сумма двух чисел А и В в программе на языке Turbo Pascal?

6. Выбрать выражение написанное на языке программирования Turbo Pascal, в

результате которого получено значение с = 2, если а = 14 и b = 4

А) с := a mod b Б) с := b div a В) с := a div b Г) с:= b mod a

7. Найдите значение переменной S после выполнения фрагмента программы на языке

программирования Turbo Pascal:

S := 2;

k := S * 3;

S := sqr (k) — 1;

S := S – k;

8. Вычислите значение переменной x после выполнения фрагмента программы на языке

программирования Turbo Pascal:

a := 2;

b := 3;

c := 4;

if (a – b < 0) and (b > c)

then x := a + b*c

else x := b + c

После выполнения программы, записанной на языке Pascal на экран будет выведено: program prim; var s:integer; begin s:=15; write(‘s:=‘,s/3); end. 1) s:=15 2) s=45 3)’s=‘15 4)s= 5

Запусти Паскаль и введи программу:

var

a,b,c:integer;

begin

a:=−43;

b:=abs(a);

writeln(‘abs(−43)=’,b);

c:=sqr(b);

writeln(‘sqr(b)=’,c);

c:=sqr(b+b);

writeln(‘sqr(b+b)=’,c);

end.

При запуске программы вывод на экран:

abs(−43)=

sqr(b)=

sqr(b+b)=

Дан фрагмент программы:

s:=114.34384

writeln (s:6:2);

После его выполнения на экран будет выведено:

а) 114.34

б) s:=114.34384

в) s:=114.34

г) 114.34384

Программист написал программу, вычисляющую сумму элементов массива A, десятичная запись которых заканчивается на 5. Какое условие он записал вместо многоточия?

В ответе запишите только пропущенное условие.

s := 0;

for i := 1 to n do begin

if … then

s:= s + A[i]

end;

Определите значение переменной S после выполнения операторов:

а:=1; b:=1; S:=0;

while a<=5

do

begin

a:=a+b; b:=b+a;

S:=S+a+b;

end;

Расположите в правильном порядке строки программы:

1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
Writeln(‘p=’,p,’ s=’,s);
4) p:=(a+b)^2;
9) a:=5;b:=8;h:=3;
5) begin

2. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей

3. Определите значение переменной a после выполнения алгоритма:
а := 8
b := 2
b := a/2*b
a := 2*а + 3*b
В ответе укажите одно целое число — значение переменной a.

4.Запишите значение переменной y, полученное в результате работы следующей программы.
var y, i: integer;
begin
y := 0;
for i := 1 to 3 do
y := y + 4 * i;
writeln(y);
end.

5.Запишите значение переменной t, полученное в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
var t, i: integer;
begin
t := 2;
for i := 1 to 3 do
t := t * i;
writeln(t);
end.

​

Запишите значение переменной s, полученное в результате работы следующей программы: Var s,k: integer; Begin s := 0; for k := 5 to 13 do s := s + 7; writeln(s); End.

Var s, i: integer; Mas:array[1.10] of integer;

Begin

Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6;

Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7;

Mas[9]:=5; Mas[10]:=3; s:=0;

for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];

for i:=1 to 10 do

if Mas[i]>0 then s:=s+Mas[1];

write(s)

End.

решение с пояснением