2. Запишите значение переменной а, полученное в результате работы следующей программы
алг
нач
цел а, т
а := 10
нц для т от 101 до 1100
а := а+ 25
кц
вывод а
кон
3. Запишите значение переменной б, полученное в результате работы следующей программы
алг
нач
цел а, т, б
а := 6
б:=1
нц для т от 5 до 9
а := а + б -2
б:= 3 *б - 4
кц
вывод б
кон
4. Запишите значение переменной а, полученное в результате работы следующей программы
алг
нач
цел а,
а := 6
нц пока а <= 42
а := а +6
кц
вывод а
кон
Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40.
А для PascalABC.Net ответ должен быть 20, 80.
пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n - для смены знака;
Программа:
const
da= -18; {927-945}
db= 24; {33-9}
var a,b,n: integer;
s: real;
begin
s:=0; n:=1; a:=945;b:=9;
while a>=27 do
begin
s:=s+a/b*n; {подсчет суммы}
a:=a+da;
b:=b+db;
n:= -1*n; {изменение знака}
end;
writeln('s=',s:4:2);
end.