var a1,b1,a2,b2,b3,c1,c2:integer;
begin
readln(a1,b1,a2,b2,b3);
c1:=a1+b2;
c2:=a2*b2;
c2:=c2*b3;
write('c1=',c1,' c2=',c2)
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Напишите линейный алгоритм в Паскале по этой схеме Начало | Ввод a1 b1 a2 b2 b3 | c1=a1+b2 c2=a2*b2 c2=c2*b3 | Вывод c1 c2 c3 | Конец
var a1,b1,a2,b2,b3,c1,c2:integer;
begin
readln(a1,b1,a2,b2,b3);
c1:=a1+b2;
c2:=a2*b2;
c2:=c2*b3;
write('c1=',c1,' c2=',c2)
end.
Объяснение: