Var k:integer;
s, x, a:real;
begin
writeln('Введите цену за первые 75 газет.');
readln(a);
writeln('Введите цену за последующие газеты.');
readln(x);
k:=133;
s:=(a*75)+((133-75)*x);
writeln(s);
end.
1.Начало
2.Сделать ход на 2 клетки вправо
3.Сделать ход вверх на 1 клетку
4.ход на 2 клетки влево
5.Ход на 2 клетки вверх
6.ход на 4 клетки вправо
7.ход на 2 клетки вниз
8.Ход на 1 клетку вправо
9.ход на 1 клетку вверх)
У тебя не правильно сделан алгоритм
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.
(A v не A) & (B & 1) = (A + -A) × (B × 1) = 0 × (B × 1)