Программирование ** языке Поскаля Три девочки собирали грибы. Первая нашла 8 грибов,...

Question

Программирование на языке Поскаля
Три девочки собирали грибы. Первая нашла 8 грибов, вторая-на 1 гриб меньше первой. Сколько нашла третья, если вместе они собрали 20 грибов?

Answer 1

Program griby;
var
a,b,c:integer;
begin
a:=8;// первая
b:=a-1;// вторая
c:=20-a-b;// третья
writeln(c);// вывод значения
end.

Comments

uses crt;
var d,d2,s,d3:integer;
begin
d:=8;
d2:=d-1;
s:=d+d2;
d3:=20-s;
write('Òðåòüÿ: ',d3);
end.
Или так)