1.2.2. Алгоритмическая структура «ветвление»
1.2.3. Алгоритмическая структура «выбор»
1.2.4. Алгоритмическая структура «цикл»
Лабораторная работа № 5. Шаг 2
Лабораторная работа № 5. Задачи 1 и 2
Лабораторная работа № 5. Шаг 3. Тест (1-5)
Лабораторная работа № 5. Шаг 3. Тест (6-8)
Шаг 2. Решаем задачи на Паскале
Для двух следующих задач дан набор команд в произвольном порядке (других команд в программах быть не должно). Соберите программы путем выбора правильных команд.
b:=a div 10;
writeln('k = ', k);
while a>1 do
begin
b:=b mod 10;
readln (a, b, k);
writeln('s = ', s:5:2);
s:=0;
end;
var a, k: integer;
k:=0;
a:=b mod 10;
readln (a);
writeln('s = ', s);
a:=a div 10;
var a: real;
end.
var a, b, k, s: integer;
s:=s+b;
readln (a, b);
var a, b, s: integer;
b:=a mod 10;
k:=k+1;
a:=a mod 10;
while a>0 do
begin