program raf105;
var
s,s2: string;
i,j,n,price,points: integer;
begin
write('Количество задач в карусели: ');
readln(n);
write('ответы команды: ');
readln(s);
for i:=1 to length(s) do
if s[i]<>' '
then s2:= s2 + s[i];
price:= 3;
for i:=1 to length(s2) do
begin
if s2[i]='1'
then begin
points:= points + price;
price:= price + 1;
end
else for j:=1 to 3 do
if price > 3
then price:= price-1;
end;
writeln('Итоговый : ',points);
end.
PascalABC 3.4.2
В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.
Когда мы приходим на урок у меня сразу готовность номер один,так как компьютеров в нашей школе очень мало и приходится устраивать перегонки ради места у компьютера, но эти гонки мне нравятся, так как они делают нашу урок еще более интересным.
Наша учительница очень молодая, но умная. Она научила нас многому( составлять ветвистые и многие другие виды алгоритмов, создавать различные презинтации и др.)
Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x,y,z:integer; Read(x,y,z);
var d1:=abs(z-x); var d2:=abs(z-y);
Writeln(d1>d2?2:d1=d2?3:1)
end.