Определите, что будет напечатано в результате работы следующей программы

1) var s; k: integer;
begin
s:=5;
for k:=1 to 6 do
s:=s+9*k;
writeln(s);
end

2)var s; k: integer;
begin
s:=2;
for k:=6 to 14do
s:=s+12
writeln(s);
end

ответ:1)194  2)110

Объяснение:

1) var s; k: integer;

begin

s:=5;

for k:=1 to 6 do  (цикл в котором к становится массивом и заполняется числами от 1 до 6 (1 2 3 4 5 6))

s:=s+9*k;  (1. 5+9*1=14   2. 14+9*2=32  3. 32+9*3=59  4. 59+9*4=95  5. 95+9*5=140  6. 140+9*6=194)

writeln(s);

end

2)var s; k: integer;

begin

s:=2;

for k:=6 to 14do  (цикл в котором к становится как бы счётчиком для действия ниже)

s:=s+12  (6]2+12=14  7]14+12=26  8]26+12=38  9]38+12=50  10]50+12=62  11]62+12=74  12]74+12=86   13]86+12=98  14]98+12=110)

writeln(s);

end

uses crt; var a,b: integer; beginwrite('! , введите стоимость книг: '); readln(a); write('введите сумму денег: '); readln(b); if a=b then writeln(' за покупку! '); if a> b then writeln('сумма денег меньше, чем стоимость книг. вам не хватает ',a-b,' рублей.'); if a< b then writeln(' за покупку! ваша сдача: ', b-a, ' рублей.'); end.