Ответ:Av(AvB)aB-++=-=100
Объяснение:это отличный ответ)))))
Какая размерность массива? А вообще просто строишь цикл
for i:= 1 to N do
a[i]:= a[i] + 25;
Var
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.
Ответ:
через 6 часов их будет 4, 9-6, 12-8
Объяснение:
Если амеба делится каждые 3 часа на две, то через 6 часов их будет 4, 9-6, 12-8
Все легко и просто!
Var x,y:real;
begin
readln(x,y);
if (y>=2) and (x*x+y*y>=16) and (x*x+y*y<=36) then
writeln(‘принадлежит’)
else writeln(‘не принадлежит’);
end.
писал с телефона, так что могут быть синтаксические ошибки
но логически программа верная