Запрограммировать три циклических алгоритма. 1) Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм равен 2, 54 см) для значений от 1 до 10 дюймов с шагом 1. 2) За 1 день рабочий изготовил 5 деталей. Напечатать, сколько деталей рабочий изготовит за 5, 6, 7, 8, 9, 10 дней. 3) В день корова даёт 6 литров молока. Сколько молока даст корова за 3, 4, 5, ..., 10 дней?

1.Значение переменной A после выполнения алгоритма становится -3

2.Значение переменной R после выполнения алгоритма становится 2

3.Значение переменной A после выполнения алгоритма становится 24

4.Значение переменной A после выполнения алгоритма становится 11

Объяснение:

1.Сперва A:=0,B:=12.

Проводим через цикл, условие B>4 истинное (B:=12, 12>4), значит выбираем да, выполняем все, что в блоке "да".

B:=B/2, B=12/2, B=6.

A:=B-A, A=6-0, A=6

из данного блока мы переходим обратно в блок с условием, условие B>4 истинное (B:=6, 6>4), значит еще раз выбираем да, выполняем все, что в блоке "да".

B:=B/2, B=6/2, B=3

A:=B-A, A=3-6, A=-3

опять же переходим обратно в блок с условием, в этот раз оно является ложью, (B:=3, 3>4 - ложь), значит мы заканчиваем алгоритм.

ответ: A=-3

2.Я буду писать только решение

G:=1, R:=1

G<3 - да (G:=1)

R:=R*G, R:=1*1, R:=1

G:=G+1, G:=1+1, G:=2

G<3 - да (G:=2)

R:=R*G, R:=1*2, R:=2

G:=G+1, G:=2+1, G:=3

G<3 - нет (G:=3, 3 не меньше 3)

ответ: R=2

3.A:=3, B:=8

B=2 - нет

B:=B/2, B:=8/2, B:=4

A:=A*B, A:=3*4, A=12

B=2 - нет

B:=B/2, B:=4/2, B:=2

A:=A*B, A:=12*2, A:=24.

B=2 - да

конец цикла

ответ: A:=24

4.A:=2, B:=2

B>14 - нет

B:=B+5, B:=2+5, B:=7

A:=A+3, A:=2+3, A=5

B>14 - нет

B:=B+5, B:=7+5, B:=12

A:=A+3, A:=5+3, A:=8.

B>14 - нет

B:=B+5, B:=12+5, B:=17

A:=A+3, A:=8+3, A:=11.

B>14 - да

конец цикла

ответ: A:=11

оцените по достоинству, очень старался

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15